I tried it. It did not work for my sheet. Thanks for your help.

"Robert Christie" wrote:

Hi Bill
not tested but HTH

Sub VlookupFill()

Range("T2").FormulaR1C1 = "=VLOOKUP(RC2,MSC.xls!R2C1:R[320]C3,3,FALSE)"
Range("T2").AutoFill Destination:=Range("T2:T" & Range("B2:B10000").End
_(xlUp).Row)

End Sub

--
Regards
Aussie Bob C.

"Bill" wrote:

Good morning. I use the following function to fill each cell in column 20.

VLOOKUP(B2,MSC.xls!$A$2:$C$322,3,FALSE)


This works great, but I need to turn it into VBA code. The B2 would have to
increment for each cell (i.e. B2, B3, B4, B5... etc) until the last row was
completed.

Thanks Bill