How about:

Sub Macro1()
ActiveSheet.Buttons.Add(252.75, 90.75, 94.5, 45).Select
Selection.OnAction = "dural"
End Sub


with

Sub dural()
MsgBox ("Hello World")
End Sub
--
Gary''s Student - gsnu200834


"PJ" wrote:

I'm using an excel file which compiles different reports into one monthly
report file. I have a button that I want added to one of the sheets in the
monthly file. The script recorder gave me the following information to add
the button, but I can't figure out how to get it to assign my existing code
to the new button.

Sheets("Sheet1").Select
ActiveSheet.OLEObjects.Add(ClassType:="Forms.Comma ndButton.1",
Link:=False _
, DisplayAsIcon:=False, Left:=10.5, Top:=55.5, Width:=79.5, Height:= _
31.5).Select