Lists of words for an if statement

[drop05]

Hello, i wanted to see if there is a better way for an doing multiple if or statements then just listing if xxx=??? or xxx=???
I have an if statement like so
is there a way to get this done better, or maybe have it listed on a tab on excel and make it a reference? just so its not a large if or statement.

Thank you in advance

if thisTag = "beginning date" or thisTag = "end date" or thisTag = "mid date" or thisTag = "no date" then
    if tagNum <> 0 then
       tagNum = tagNum + 1
    end if
end if

 

[Peter_SSs]

It depends on just how many values you might have. One way to shorten your example would be this

Select Case thisTag
  Case "beginning date", "end date", "mid date", "no date"
    If tagNum <> 0 Then tagNum = tagNum + 1
  Case Else
    'If something should happen for other thisTag values then that code goes here
End Select

 

[drop05]

It depends on just how many values you might have. One way to shorten your example would be this

Select Case thisTag
  Case "beginning date", "end date", "mid date", "no date"
    If tagNum <> 0 Then tagNum = tagNum + 1
  Case Else
    'If something should happen for other thisTag values then that code goes here
End Select

i have about 10 so before i was doing the if xxx= xxx or about 9-10 times, so was trying to see if there is a shorter way
Is case similar to a list?

 

[Peter_SSs]

i have about 10

So, with about 10 it would still be reasonable to use a 'Case' statement like I suggested above or, especially if more than 10, then if the list was in Sheet1 column E starting at E2 you could use something like this

Dim rFound As Range

Set rFound = Sheets("Sheet1").Range("E2:E100").Find(What:=thisTag, LookAt:=xlWhole, MatchCase:=True)
If Not rFound Is Nothing And tagNum <> 0 Then tagNum = tagNum + 1