I already have a Select Case structure
It looks somewhat like this
Select Case intCampaignCell
Case 345, 348, 367
Set frmNew = New frmDirectMail
Case 389, 392, 398, 412
Set frmNew = New frmRetention
... Case repeated about 10 times ...
End Select
frmNew.show
What I would like to...