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

--
Message posted from http://www.ExcelForum.com

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 " wrote in message
...
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 column
of data and copy the header over into the blank column. Thanks


---
Message posted from http://www.ExcelForum.com/

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


---
Message posted from http://www.ExcelForum.com/

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 " wrote in message
...
Thanks Bob!! one thing, I don't want a column inserted after A. I want
it to start at B. Thanks


---
Message posted from http://www.ExcelForum.com/

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

--
Message posted from http://www.ExcelForum.com