Sub FillShapeColour()
Static fOn As Boolean

With ActiveSheet.Shapes(Application.Caller)

If fOn Then

.Fill.Visible = msoFalse
Else

.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 10
End If
End With

fOn = Not fOn
End Sub

--
__________________________________
HTH

Bob

"Nikki" wrote in message
...
I need to make a traffic light using circles- Only one would be "on" at a
time (this doesn't need to be part of the code though).
You would click it to make it fill with color and click again to turn it
off.
Thank you for any help you can give. I have tried a number of coding
options
and can't get the color part to work.
--
Thanks,
Nikki