Thanks, Myrna. It works, now.

I think the 'help' for AutoFill messed me up. I copied the example - and
didn't know what else to do when it didn't work...

Jim

"Myrna Larson" wrote in message
...
PS: If the purpose is to copy the formula down, you probably want the
FillDown
method, not AutoFill. Again, look at Help for FillDown if you need it.


On Wed, 10 Nov 2004 19:36:00 GMT, "Jim Berglund"
wrote:

I'm getting an Error 1004 on the highlighted line of the following code.

With ActiveSheet
.Range("DG5").Select
numberofRows = ActiveCell.CurrentRegion.Rows.Count

.Range("DG5").Value = "=VLOOKUP($DH5,$N$3:$AP$9000,29,TRUE)"
Set SourceRange = .Range("DH5")
Set fillRange = .Range(Cells(6, 111), Cells((numberofRows - 5), 111))
SourceRange.AutoFill Destination:=fillRange
End With

Could you please help me with this? Thanks