Using Excel 2003, is there a way to use the =Vlookup worksheet function in a
macro? (VBA code). I've tried

dim resultt as string
resultt=vlookup("02111","a1:ab545",3,false)

and all I get is a "sub or function not defined" message.

Thanks in advance for your help.

Dim Res as variant 'could be an error
dim myVal as variant 'string or long or double or ???
dim LookUpRng as range

with activesheet
set lookuprng = .range("a1:ab545")
end with

myVal = "02111" 'not 2111???

res = application.vlookup(myval, lookuprng, 3, false)

if iserror(res) then
msgbox "No match"
else
msgbox res
end if



PeterM wrote:

Using Excel 2003, is there a way to use the =Vlookup worksheet function in a
macro? (VBA code). I've tried

dim resultt as string
resultt=vlookup("02111","a1:ab545",3,false)

and all I get is a "sub or function not defined" message.

Thanks in advance for your help.

--

Dave Peterson

thanks for responding

"02111" is in quotes because in the worksheet the value to be looked up is
number stored as a text string, therefore "02111"

but you've answered my question, got it to work....thank you for your help

"Dave Peterson" wrote:

Dim Res as variant 'could be an error
dim myVal as variant 'string or long or double or ???
dim LookUpRng as range

with activesheet
set lookuprng = .range("a1:ab545")
end with

myVal = "02111" 'not 2111???

res = application.vlookup(myval, lookuprng, 3, false)

if iserror(res) then
msgbox "No match"
else
msgbox res
end if



PeterM wrote:

Using Excel 2003, is there a way to use the =Vlookup worksheet function in a
macro? (VBA code). I've tried

dim resultt as string
resultt=vlookup("02111","a1:ab545",3,false)

and all I get is a "sub or function not defined" message.

Thanks in advance for your help.

--

Dave Peterson