Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/28/2007 by jim ravenswood
'

'
Application.CommandBars("Forms").Visible = True
ActiveSheet.Buttons.Add(290.25, 69, 51.75, 41.25).Select
Selection.OnAction = "rick_mc"
Application.CommandBars("Forms").Visible = False
End Sub


Assuming you already have a macro called "rick_mc". This macro creates a
button and does the assignment.
--
Gary''s Student
gsnu200712