Public Function IsInArray(FindValue As Variant, arrSearch As _
Variant) As Boolean

On Error GoTo LocalError
If Not IsArray(arrSearch) Then Exit Function
IsInArray = InStr(1, vbNullChar & Join(arrSearch, _
vbNullChar) & vbNullChar, vbNullChar & FindValue & _
vbNullChar) > 0

Exit Function
LocalError:
'Ett fel uppstod
End Function