After adding "row" it returns the error "unable to get the vlookup property
of the WorksheetFunction class".

"p45cal" wrote:


at first glance perhaps this line:
ActiveCell.Value = WorksheetFunction.VLookup(Cells(ActiveCell, "A"),
rngTemp, 4, 0)
should read:
ActiveCell.Value = WorksheetFunction.VLookup(Cells(ActiveCell*.Row*,
"A"), rngTemp, 4, 0)
(as originally suggested)


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=126806