Change color of cell on condition

[pkdash83]

Hi Guys,

I'm using following code to change color of a cell based on if else statement.

Sub Change_Color()
If Worksheets("Main").Range("I3").Value >= 40000 Then

Worksheets("Main").Range("K3").Interior.Color = RGB(0, 255, 0)

Else: Worksheets("Main").Range("K3").Interior.Color = RGB(255, 0, 0)

End If

End Sub


The first statement satisfies but the else statement doesn't work. The color remains green even when sales<40000


Please help....


Thanks,
Prasanna

 

[mole999]

maybe remove

Else:

 

[Andrew Poulsom]

Your code works for me. Are you sure that I3 contains a number, not a string that looks like a number?

 

[pkdash83]

Thanks Andrew, You were right.

The code works now.