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 vote178 views1 answer
Excel vba cell on change
VBA
2 votes170 views2 answers
Excel vba copy values range to another range
VBA
0 vote193 views1 answer
Vba userform textbox wrap text
VBA
1 vote186 views1 answer
Extract the second word in a text in excel
VBA
1 vote182 views1 answer
Vba date to unix timestamp
VBA
0 vote180 views1 answer
Vba excel do not recalculate before save
VBA
0 vote180 views1 answer
Vba find last column in a row with data
VBA
1 vote179 views1 answer
Vba compile error object required
VBA
0 vote188 views2 answers
Excel vba copy paste after last row
VBA
0 vote180 views1 answer
Excel last used row
VBA