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

1 vote207 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote206 views1 answer
Vba static variable
VBA
0 vote245 views1 answer
Excel vba round to whole number
VBA
0 vote215 views1 answer
How to get the value of optionbutton in vba
VBA
-1 vote221 views2 answers
Excel vba delete empty rows
VBA
0 vote211 views1 answer
Excel vba hide columns
VBA
0 vote232 views1 answer
Delete all controls in an area vb
VBA
8 votes277 views1 answer
Excel vba make word
VBA
0 vote233 views1 answer
Build an index all files of a FTP site
VBA
0 vote241 views1 answer
VBA Sort RossetaCode
VBA