Use Integer as the switch value for Select Case Structure
Sub ifTest5() Dim intNum As Integer
intNum = 2
Select Case intNum
Debug.Print "This is the lowest number"
Debug.Print "This is the highest number"
Debug.Print "The number is between 1 and 15" End Select End Sub