Run-time error '1004':

[bobkap]

I have the following line of code in my macro but it will not work. I keep getting that error message along with "Unable to get the VLookup property of the WorksheetFunction class.

After guessing and trying many different ways to fix it, I've given up. Any help would be greatly appreciated!

payrate = Application.WorksheetFunction.VLookup(empname, Table1, Banana, False)

 

[Domenic]

WorksheetFunction causes a breaking error when an error occurs as a result of no match being found. Try the following instead...

Dim payrate As Variant


payrate = Application.VLookup(empname, Table1, Banana, False)

Now you'll be able to test whether a match has been found...

If IsError(payrate) Then
    MsgBox "No match found.", vbInformation
Else
    MsgBox "Match found.", vbInformation
End If

Hope this helps!