Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions : Select « Language Basics « VBA / Excel / Access / Word
Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
Sub caseTo() Dim unitsSold As Integer
unitsSold = 44
Select Case unitsSold
Case 1 To 100
Discount = 0.05
Case Is <= 500
Discount = 0.1
Case 501 To 1000
Discount = 0.15
Case Is > 1000
Discount = 0.2 End Select