Sub testcase()
Dim i As Long
Dim j As Long
For i = 0 To 10
    For j = 0 To 5
        Select Case i
        
        Case i >= 2 And i <= 4
            msgbox i
        Case i >= 6 And i <= 7
            Debug.Print i
        Case i >= 8 And i < 9
        
        Case Else
        
        End Select
    
    Next j
Next i

End Sub