Trying again...

Here's one that fills 5 columns across.

Sub test()
Dim lngRow As Long, lngColumns As Long

lngRow = 1: lngColumns = 5

With Cells(lngRow, 1)
.AutoFill .Resize(1, lngColumns)
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"greg" wrote in message
...
Is there a way to fill the cells in a row that start at a value in the
first cell of that row and end at a value in the second cell of that row?
-Greg