set rng = Worksheets("Sheet3").Range("A1").CurrentRegion

res = Application.Vlookup("abcd",rng,3,false)

if not iserror(res) then
msgbox res
End if

is as good a guess as any.

--
Regards,
Tom Ogilvy

"BLOOD..." wrote in message
...
microsoft excel 2003

vlookup why macro source codes...............

thanks...