Since you know the condition, just use that:

Dim CFisOn As Boolean
CFisOn = Range("A1").Value = 1



In article ,
"luvgreen" wrote:

Thank you for reply. I did not express my question well. Let me explain it
with an example.

For cell A1 I put condition formatting of if A1=1, then shade the cell in
red. I want to know if the cell is turned red or not. Thanks.