on error resume next
l = WorksheetFunction.Match("Example", Range("A:A"), 0)
if err then
    'значение НЕ найдено
else
    'значение найдено
end if
on error goto 0 'опционально

dim l 'as variant
l = WorksheetFunction.Match("Example", Range("A:A"), 0)
if iserror(i) then
    'значение НЕ найдено
else
    'значение найдено
end if

Sub test()
Dim t!, x, i&
t = Timer
For i = 1 To 1000000
    x = Application.WorksheetFunction.And(0)
Next
Debug.Print Timer - t
End Sub

 64,66406 Application 
 33,61719 WorksheetFunction