Autofill formula

[ehcpieterse]

Hi,

I am getting an error when I want to autofill the range D36:J64 with the formula in D36:

Range("D36").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R35C2&R33C&RC3,'Report by Entity'!C1:C5,5,FALSE)"
Selection.AutoFill Destination:=Range("D36:J64")

Am I missing something?

 

[VoG]

Try

With Range("D36:J36")
    .FormulaR1C1 = "=VLOOKUP(R35C2&R33C&RC3,'Report by Entity'!C1:C5,5,FALSE)"
    .AutoFill Destination:=Range("D36:J64")
End With

 

[ehcpieterse]

Thanks!