ExistsInArray

Function ExistsInArray(CurName As String, NameArray As Variant) As Boolean
If UBound(NameArray) = 0 Then
    ExistsInArray = False
    Exit Function
End If
For X = 0 To UBound(NameArray)
    If IsEmpty(NameArray(X)) = False Then
        If CurName = NameArray(X) Then
            ExistsInArray = True
            Exit Function
        End If
    End If
Next X 
ExistsInArray = False
End Function