Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E10")) Is Nothing Then
Shapes("Oval 3").Select
Select Case Range("E10").Value
Case 1 '<~~ If cell value is 2 then color Black
Selection.ShapeRange.Line.ForeColor.SchemeColor = 64
Case 2 '<~~ If cell value is 2 then color Red
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
End Select
Range("E10").Select
End If
End Sub
You can create a shape and place it on top of that cell and then in worksheet change event check the value of that cell and then change color of the shape via code.
Sid