When I recorded a macro to do this I got:

Range("A1").Select
Selection.AutoFill Destination:=Range("A1:A21"), Type:=xlFillSeries

The selections aren't necessary:

Range("A1").AutoFill Destination:=Range("A1:A21"), Type:=xlFillSeries


or, if your range is in a variable:

With rng
.Cells(1, 1).AutoFill Destination:=.Cells, Type:=xlFillSeries
End With

In article ,
"Michael Allen" wrote:

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