Set Rng = lObjInterimWrkSht.Range("$L2:$O1000")
lStrResult = Application.VLookup("1001001", Rng, 4, False)
If Not VBA.IsError(lStrResult) Then
lDblExpensesThisMonthAmt =
VBA.Val(lStrResult)
Else
lDblExpensesThisMonthAmt = 0
End If

It throws error when executing the vlookup function as "Type
Mismatch".

I tried with Application.Worksheetfunction.VLookup and it throws
'Unable to get the VLookup property of the WorksheetFunction class'

Please anyone can help me out.


--
mtpsuresh
------------------------------------------------------------------------
mtpsuresh's Profile: http://www.excelforum.com/member.php...o&userid=31817
View this thread: http://www.excelforum.com/showthread...hreadid=565136