I am trying to get my code to take a value and work out which actions to do based on where the number is situated in the ranges.

a = Range("B3").Select

Select Case a
Case Is > 0 < 9
'do stuff
MsgBox ("less than 10")
Case Is > 10 < 999
'do stuff
MsgBox ("less than 100")
Case Is > 1000 < 40000
'do stuff
MsgBox ("less than 1000")
End Select

Only problem is, the code doesnt work, and neither does IF statements. What am I doing wrong?!

Thank you