Insert Columns

[Scottmk]

Hi,
I have 26 columns of data from (B:AA). Their headers are in row 1.
I am trying to get a code that will insert 1 column next to each colum
of data and copy the header over into the blank column. Thank

 

[Bob Phillips]

Dim i As Long

For i = 27 To 1 Step -1
Columns(i + 1).EntireColumn.Insert
Cells(1, i + 1).Value = Cells(1, i).Value
Next i


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Scottmk]

Thanks Bob!! one thing, I don't want a column inserted after A. I want
it to start at B. Thanks

 

[Bob Phillips]

Sorry Scott,

just change it to

Dim i As Long

For i = 27 To 2 Step -1
Columns(i + 1).EntireColumn.Insert
Cells(1, i + 1).Value = Cells(1, i).Value
Next i


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[Scottmk]

Thanks for all of your help Bob...I really appreciate it.
Scot