Hi Howard,

Am Wed, 30 Jul 2014 20:19:14 +0200 schrieb Claus Busch:

Sub VLook()

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.
--
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional