I guess you want:



Sub VLook()



Dim LRow As Long



LRow = Cells(Rows.Count, "B").End(xlUp).Row

Range("C2:F" & LRow).Formula = _

"=VLOOKUP($B2,Sheet3!$B$2:$F$10,column(B2),0)"



End Sub





Regards

Claus B.

--



They both work, I suspect the second one, non array, is a better choice.

Fills down and to the right.

Thanks Claus.
Howard