You criteria is basically a filter, so you stop as soon as you satisfy a
condition. Therefore you don't need to specify a lower bound:

Sub testCase()
i = 100

Select Case i
Case Is < 10
MsgBox "< 10"
Case Is < 100
MsgBox "=10 and < 100"
Case Is < 1000
MsgBox " = 100 and < 1000"
Case Is < 10000
MsgBox " = 1000 and < 10000"
Case Else
MsgBox " = 10000"
End Select
End Sub

as an example.

--
Regards,
Tom Ogilvy

"Sami82" wrote in
message ...

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


--
Sami82
------------------------------------------------------------------------
Sami82's Profile:
http://www.excelforum.com/member.php...o&userid=27111
View this thread: http://www.excelforum.com/showthread...hreadid=475351