Creating a button and assigning macro

[Pasha]

Within a macro, I am creating a button that will execute another macro:
ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1"
Link:=False _
, DisplayAsIcon:=False, Left:=18, Top:=12.75, Width:=64.5
Height:= _
15.75).Select

How do I:

1. Change the caption of this button to "Print"?
2. Assign Macro "Print" to this button?

Any ideas

 

[Bob Phillips]

It's easier with a Forms button

Application.CommandBars("Forms").Visible = True
ActiveSheet.Buttons.Add(18, 12.75, 64.5, 15.75).Select
Selection.Caption = "Print"
Selection.OnAction = "myPrintMacro"

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)