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
MsgBox Discount
End Sub