Macro assigned to rectangle3

Sub colorshp()
With ActiveSheet.Shapes("Rectangle 3")
..Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 12
Range("g19").Value = 25
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 13
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Terje" wrote in message
...
I am using a shape as a button in form controls, I have assigned a macro to
this shape to change a set of data. How can I get the shape to change fill
color when running this macro?