Есть ли возможность в блоке, в замен "Выражение" подставлять, строку(массив) с данными
Select Case выражение
[Case список Выражений-n
[инструкции-n]] ...
[Case Else
[инструкции_else]]
End Select
т.е.
по условию переопределив значение какой либо переменной, подставить 'эту переменнуюв условие оператора Case
number="1,2,3,5,9"
Select Case Number
Case number Debug.Print number
End Select
by me...