The following worked very well with me. Note that cell E3 should have
formula. If you are trying to manually edit the value in E3, then us
Worksheet_Change event instead of the calculate.

Private Sub Worksheet_Calculate()

With Me.Shapes("AutoShape 1").Fill.ForeColor
Select Case Me.Range("E3").Value
Case 1: .SchemeColor = 14 ' pink
Case 0: .SchemeColor = 15 ' Light Blue
Case Else: .SchemeColor = 11 ' green
End Select
End With

With Me.Shapes("AutoShape 2").Fill.ForeColor
Select Case Me.Range("E3").Value
Case 1: .SchemeColor = 14 ' pink
Case 0: .SchemeColor = 15 ' Light Blue
Case Else: .SchemeColor = 11 ' green
End Select
End With

End Sub


Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=38672