Change Cell Fill Color if Cell has Text and No Fill Color

[btb918]

I don't believe conditional formatting based on a cell's fill color is an option so that leaves only macros.

I'd like to specify a range of cells in which if I type something into any one of those cells, it's fill color will change to "green". If I then change the fill color to "red" it will stay "red" and not still be "green". Any suggestions? Thanks in advance.

 

[Fluff]

This will change the background in for A2 to A22 if a change is made

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A2:A22")) Is Nothing And Target.Count = 1 Then

Target.Interior.Color = vbGreen
End If
End Sub

 

[mrmmickle1]

Just a slight modification on Fluff's code to account for if the cell is red:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:A22")) Is Nothing And Target.Count = 1 Then
        If Target.Interior.Color <> vbRed Then 'If the interior cell color is not red then....
            Target.Interior.Color = vbGreen 'Change the interior cell color to green
        End If
    End If
End Sub

 

[Fluff]

btb918
If the cell is red & you change the value, should it
a) remain red - Use the code from mrmmickle
b) change to green - use my code