I used a shape from the drawing tool barrecorded thisadded msgbox "hi".
Play with it

Sub Macro7()
'
' Macro7 Macro
' Macro recorded 11/30/2007 by Donald B. Guillett
'

'
MsgBox "hi"

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
' chg number below
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 66
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.SchemeColor = 66
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Cong Nguyen" wrote in message
...
Is there a command to change the Macro button to another color after
clicked?
Many thanks.
--
Cong Nguyen