Insert Columns

S

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
 
B

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)
 
S

Scottmk

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

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)
 
Top