Thanks William for the very prompt response. That worked fine!

Mike
"William" wrote in message
...
Hi Michael

Sub test()
Range("D2") = 1
Range("D2").AutoFill Destination:=Range("D2:D39"), Type:=xlFillSeries
End Sub


--
XL2002
Regards

William



"Michael Allen" wrote in message
...
| I am trying the fill a range with a progression 1,2,3,4 etc using the
| DataSeries method. What is the syntax?
|
| Thanks,
| Mike
|
|