To make a heading for columns 20 to 25:
Sub MakeHeads()
Cells(1,20).resize(1,6).Value =
array("Head1","Head2","MyHead","Head4","Head5","Co l25")
End sub

wrote in message
...
I want to start at column 20 and incrment by 1 and insert
a heading for each column - all via a macro.

I can capture the column index but I can't seem to
increment to the next column.

Help

Glen