https://stackoverflow.com/questions/19369132/declare-and-initialize-string-array-in-vba
Dim arrWsNames() As String
arrWsNames = Split("Value1,Value2,Value3", ",")
Public Function IsStrInArr(Arr As Variant, StrToCheck As String) As Boolean IsStrInArr = UBound(Filter(Arr, StrToCheck)) > -1 End Function