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

3 votes387 views1 answer
Excel insert blank row for value change in column
VBA
0 vote341 views1 answer
How to use VBA to add new record in MS Access?
VBA
0 vote390 views1 answer
Excel named range sum
VBA
0 vote357 views2 answers
Get excel file from email attachment in vba
VBA
0 vote364 views1 answer
Excel vba calculate
VBA
0 vote360 views1 answer
Excel vba delete folder
VBA
0 vote382 views1 answer
Vba sort the data Z to A
VBA
0 vote366 views1 answer
Excel vba StartUpPosition
VBA
0 vote400 views1 answer
Pivot data source not accepting table named range vba
VBA
1 vote353 views1 answer
How to do error handling in access vba
VBA