I'm tying to change a shape based on a cell value. I have this but it will not change fron green to red.
I would like the shape to go red, yellow and green but I can't find anything that works. Any help would be great. Thanks
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A100").Value >= 0 And Range("A100").Value <= Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbGreen
ElseIf Range("A100").Value > Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbRed
End If
End Sub
I would like the shape to go red, yellow and green but I can't find anything that works. Any help would be great. Thanks