Since the cells are sequential is there some way to use FillRight?

"Tom Ogilvy" wrote:

Sub AddHeaders()
ncol = 56
Rows(1).Insert
Range("A1").Resize(1,ncol).Formula = "=""D""& Column()"
Range("A1").Resize(1,ncol).Formula = _
Range("A1").Resize(1,ncol).Value
End Sub

I don't see where adding an array into the equation would be of any
advantage.

--
Regards,
Tom Ogilvy

"Fred" wrote in message
oups.com...
Thanks Tom, much cleaner...

But what if I did not want to specify my ending column. In this case I
needed 56 columns so I counted over manually to find the 56th column.
But what if I wanted the 213th column.

I was thinking an Array for this: Range("A1:BD1").