This answer is just a study of my comments on JMay, full credit for him. I think that the original poster, designed for βsomethingβ in his question, is different, with a being a loop variable.
For each a in MyList Select Case a Case "something", "something2", "something3", "something4", "something5", _ "something6", "something7", "something8", "something9", "something10", _ "something11", "something12", "something13", "something14", "something15", _ "something16", "something17", "something18" 'DO NOTHING Case Else 'do-something code goes here ' and here ' and here ' and here End Select Next a
source share