Hello,
I have this code that changes the color of AutoShape 517, depending o
the condition of cell E3. How do I get 2 auto shapes to work on th
same sheet?

I tried to duplicate this code and changed the autoshape # and range t
E4: Got a compile error. I guess a conflict with Worksheet_Calculate()
I also tried to insert With Me.Shapes("AutoShape 626").Fill.ForeColor
Select Case Me.Range("E4").Value


Working Code for one shape:

Private Sub Worksheet_Calculate()
With Me.Shapes("AutoShape 517").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

I'm stuck,
EMo

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