This error occurs in some circumstances when no match could be located.
Instead use the syntax:

Dim vResult As Variant
vResult = Application.VLookup(...)
If IsError(vResult) Then
''' Value could not be located
Else
''' Value was located and is contained in vResult.
End if

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"cici" wrote in message
...
Thank Frank and Rob for answering my question earlier.
Here is the problem again.

I tried:
Application.WorksheetFunction.VLookup()

Then, I got this run-time error:
"Unable to get the VLOOKUP property of the
WorksheetFunction class"

Thank you.