I'd try this next:

Dim myDt as Date
dim myVariable as variant 'could be an error

myDt = dateserial(myYr, myMonth, 1)

myVariable = application.vlookup(clng(mydt),range("fuel",3, false)

if iserror(myVariable) then
msgbox "not found"
else
msgbox myVariable
end if



" wrote:

Hi

I'm having issues with the following - pls help.

Dim myDt as variant
myDt = dateserial(myYr, myMonth,1)

myVariable = application.worksheetfunction.vlookup(myDt,Range(" FUEL"),
3,false)

gives me an error 2042.
I've no clue what's going on here. Can anyone pls help??

thanks
chet

--

Dave Peterson