IN function

[abenitez77]

Is there an IN function in excel vba that I can use ?
In SQL I can do something like this:

Select * from table where field IN('value1','value2','value3','value4')

Is there something similar that I can do in Excel?

I have this If statement below that I want to do this to:

If LCase(xSheetName) = "price strat export" Or LCase(xSheetName) = "a-b-c moves 2" Or LCase(xSheetName) = "test" _
Or LCase(xSheetName) = "forecasts" Or LCase(xSheetName) = "q4 skeleton" Or LCase(xSheetName) = "ly space and sales" _
Or LCase(xSheetName) = "p_template" Or LCase(xSheetName) = "fills" Or LCase(xSheetName) = "input plan" _
Or LCase(xSheetName) = "customer" Then
GoTo NextCounter
End If

 

[JackDanIce]

One suggestion:

    Dim sNames As String
    sNames = "price strat export|a-b-c moves 2|test|...|customer"


    If InStr(sNames, LCase(xSheetName)) > 0 Then
       GoTo NextCounter
    End If

Where "..." are the missing sheet names - adjust as required.

 

[Eric W]

Another option:

    myNames = Array("price strat export", "a-b-c moves 2", "test")
    
    If UBound(Filter(myNames, LCase(xSheetName))) > -1 Then
    
    ' Do something
    
    End If

 

[Rick Rothstein]

One suggestion:

    Dim sNames As String
    sNames = "|price strat export|a-b-c moves 2|test|...|customer|"


    If InStr(sNames, "|" & LCase(xSheetName) & "|") > 0 Then
       GoTo NextCounter
    End If

Where "..." are the missing sheet names - adjust as required.

I would suggest making the four additions I show in red above in order to make sure you don't register a partial match as if it were a full match.

 

[abenitez77]

Thanks all, I now have 2 new ways to do what I want.