Colour an object based on cell content

[JonesyUK]

Hi - Thanks for your advice.

I have a circle object on an Excel spreadsheet(I used "Insert", "Shapes" to put it there).

I would like to change the colour of the circle object based on the contents of cell A1.

Cell A1 will be "Red", "Yellow" or "Green".

If I type "Green" into cell A1, then I would like the circle object to change to green.
If I type "Yellow" into cell A1, then I would like the circle object to change to yellow....

etc. etc.

Hope this makes sense, and again, thanks for your response.
C

 

[S0x24]

You did it. You are the man!!

Thanks for your help and thanks for the quick response =)

---

CODE: [TABLE="class: grid, width: 1000"]
<tbody>[TR]
[TD]Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
With Worksheets("A").Shapes("Box").Fill
Select Case Target.Value
Case "Action"
.Visible = msoTrue
.ForeColor.SchemeColor = 10
Case "Caution"
.Visible = msoTrue
.ForeColor.RGB = RGB(254, 134, 1)
Case "Monitor"
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 0)
Case "Normal"
.Visible = msoTrue
.ForeColor.SchemeColor = 17
Case Else
.Visible = msoFalse
End Select
End With
End Sub[/TD]
[/TR]
</tbody>[/TABLE]