Select Case SomeValue
Case "1-aaa", "1-abc", "Alloc"
[COLOR="Green"] 'code block here[/COLOR]
Case "1-acc", "Test some other value here"
[COLOR="Green"] 'other code block here[/COLOR]
Case Else
[COLOR="Green"] 'catch-all code block here[/COLOR]
End Select