Select Case with variables

[Chopstik]

Is it possible to do a select case statement with variables in the Case piece?

For example, I might have several cases that begin with "Property", like "Property_Summary" or "Property_Location" but that would really be the same thing (need the same code from the Case statement). So, what I'm wondering is if it is possible to do the following:

Select Case Screen
Case Property*
'Run code here
Case Location*
'Run code here
Case Else
'Run other code here
End Select

where Property* is anything that begins with Property. TIA! Insanity is merely a state of mind while crazy people have a mind of their own.

 

[patrician]

Try this:

Public sub Select_case()
Dim strSelect As String

strSelect = "Property_HELP"

Select Case strSelect
Case "Property_A" To "Property_zzzzzzzzzzzzz"
msgbox "property_selected"
Case Else
msgbox "nothing selected"
End Select

End Function

 

[Chopstik]

Thanks... Hadn't thought about it that way. Will test it when I return to the office. Insanity is merely a state of mind while crazy people have a mind of their own.