Answers for "excel vba check if every substring in list are in string"

excel vba check if every substring in list are in string

'VBA function to check if ALL of a list of substrings is contained
'within a string:

Function AllIn(s$, ParamArray checks()) As Boolean
    Dim e
    For Each e In checks
        If 0 = InStrB(s, e) Then Exit Function
    Next
    AllIn = True
End Function
  
'-------------------------------------------------------------------
  
MsgBox AllIn("abcde", "d", c, "a")   '<--displays: True
MsgBox AllIn("abcde", "d", c, "z")   '<--displays: False