You can use Select Case statement like this
Code
-------------------
Dim Cel As Range
For Each Cel In Range("A1:E41") '''change the range to sui
*Select* *Case* Cel.Value
*Case* Is =""
Cel.Interior.ColorIndex = xlNone
*Case* Is = "1"
Cel.Interior.ColorIndex = 3
*Case* Is = "2"
Cel.Interior.ColorIndex = 5
*Case* Is = "3"
Cel.Interior.ColorIndex = 6
''''''The above *case* is statement can just be extended for as many as you nee
End *Select*
Next Cel
-------------------
aswal;194784 said:
Dear Tea
Kindly provide me the way , hat how can i use conditional formattin
with more than 3 options
Manish ASwa
--
Simon Lloy
Regards,
Simon Lloyd
'The Code Cage' (
http://www.thecodecage.com