Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A1" Then
Select Case Target.Value
Case 0: Me.DrawingObjects("Oval 10").Interior.ColorIndex = 3
Case 1: Me.DrawingObjects("Oval 10").Interior.ColorIndex = 10
End Select
End If
End Sub