Group the worksheets that should have this done to them.
Click on the first tab and ctrl-click on subsequent.

Then run a macro:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim iCol As Long
For Each wks In ActiveWindow.SelectedSheets
With wks
For iCol _
= .Cells.SpecialCells(xlCellTypeLastCell).Column To 1 Step -1
.Columns(iCol).Insert
Next iCol
End With
Next wks
End Sub

If you're new to macros:

Debra Dalgleish has some notes how to implement macros he
http://www.contextures.com/xlvba01.html

David McRitchie has an intro to macros:
http://www.mvps.org/dmcritchie/excel/getstarted.htm

Ron de Bruin's intro to macros:
http://www.rondebruin.nl/code.htm

(General, Regular and Standard modules all describe the same thing.)

vcff wrote:

Hi All

I need to insert blank columns after each column of data on several
worksheets.
Can help?

Thanks in advance.

vcff

--

Dave Peterson