Select case vba

Dim Number 
Number = 8    ' Initialize variable. 
Select Case Number    ' Evaluate Number. 
Case 1 To 5    ' Number between 1 and 5, inclusive. 
    Debug.Print "Between 1 and 5" 
' The following is the only Case clause that evaluates to True. 
Case 6, 7, 8    ' Number between 6 and 8. 
    Debug.Print "Between 6 and 8" 
Case 9 To 10    ' Number is 9 or 10. 
Debug.Print "Greater than 8" 
Case Else    ' Other values. 
    Debug.Print "Not between 1 and 10" 
End Select

Similar codes

0 vote222 views1 answer
Vba createparameter null
VBA
4 votes229 views2 answers
Vba array length
VBA
1 vote228 views1 answer
S yyyy-MM-dd HH:mm:ss Short Date Local
VBA
1 vote239 views1 answer
Vba reverse string
VBA
0 vote231 views1 answer
Vba verticalalignment
VBA
0 vote238 views1 answer
Vbscript for loop
VBA
0 vote225 views1 answer
Excel vba disable alerts
VBA
0 vote263 views1 answer
Vbnet check if string is only letters
VBA
20 votes303 views1 answer
Excel vba recursive example factorial function
VBA
3 votes230 views1 answer
Vba make long from two shorts
VBA