A slightly different function?
[VBA]
Public Function IsInArray(arr As Variant, valueToFind As Variant) As Boolean
IsInArray = Not IsError(Application.Match(valueToFind, arr, 0))
End Function

[/VBA]