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