I didn't see your original post but this could be placed in the
worksheet_change event to be automatic

Sub autocolor()
With ActiveSheet.Shapes("Rectangle 1").Fill.ForeColor
If Range("d1") 0 Then
.SchemeColor = 11
Else
..SchemeColor = 53
End If
End With
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"noyau" wrote in message
...

Hi Ken,

Although seems easier, I was unable to suit you code to my own situation.

I have a value in a cell say A1. It is either zero or a fix number. I want
to change the color of a shape regarding the vale of cell A1.
If A1=0 then Autoshape is red, else AutoShape is green?

Where to start?

all my best.

nyn



"Ken Johnson" wrote:

Public Sub Goal()
Dim I As Integer
For I = 7 To 57
If Worksheets("Sheet1").Range("C" & I) = "" Then
ActiveSheet.Shapes("AutoShape " & _
Range("C" & 71 + I - 7).Value).Fill.ForeColor.SchemeColor = 10
Else: ActiveSheet.Shapes("AutoShape " & _
Range("C" & 71 + I - 7).Value).Fill.ForeColor.SchemeColor = 3
End If
Next I
End Sub

Ken Johnson