IfFoundInList

Checks to see if sStr matches on of the items in Listof, knowing separator, returns true or false.

CodeFunctionName

What is this?

Public

Tested

Original Work

Function IfFoundInList(sStr, Optional Listof = " ,.,;,:,(,), <, >", Optional Sepa = ",")
    ' Checks to see if sStr matches on of the items in listof, knowing separator
    '
    Rett = False ' assume it is not
    For Each Lii In Split(Listof, Sepa)
        If UCase(sStr) = UCase(Lii) Then
            Rett = True
            Exit For
        End If
    Next
    IfFoundInList = Rett
End Function

sStr, Optional Listof = " ,.,;,:,(,),<,>", Optional Sepa = ","