Sure; set the OnAction property of the control, e.g.,
Code:
--------------------
Set cControl = Application.CommandBars("Worksheet Menu bar").Controls.Add
With cControl
.Caption = "&Copy Rng"
.Style = msoButtonCaption
.OnAction = "ShowRangeToClipboardForm"
End With