Just an added thought.
That would work for integers

Sub selectgreaterthan()
Select Case 9.5
Case 1 To 9
MsgBox "1"
Case 10 To 999
MsgBox "10"
Case Else
MsgBox "Error"
End Select
End Sub

gives error.

--
Regards,
Tom Ogilvy

"Don Guillett" wrote in message
...
the HELP file index for case would give a good example
Sub selectgreaterthan()
Select Case Range("b3")
Case 1 To 9
MsgBox "1"
Case 10 To 999
MsgBox "10"
'etc
Case Else
End Select
End Sub

--
Don Guillett
SalesAid Software

"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