Expanding SELECT CASE

[NakedApe]

Oh, I see. Duh. Something like this?

For c = 0 to Ubound(flag)
If flag(c) then
Select case c
-
End Select
End If
Next c

Loop u
Do 
C= C + 1
If flag(c) then
Select Case
-
End Select
End if
Loop until c = Ubound(flag)