Assign macro to control button

[Jaye7]

I am having trouble with the following script.

I have been trying to assign a macro to it but I just can't work it out.

I want to assign a macro named "Form1" to the control and then when I close my workbook it would delete the button.

I have tried the .onaction script but can't get it to work.

Also can someone provide a script the same but rather than the control button in the script below it would add a button named "Form2" with the macro named "Form1" assigned to it.

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
        msoControlButton, ID:=1183

Thank You

 

[Jaye7]

OK, I have found the following script, the only problem I am having is that everytime I click in a worksheet cell the button vanishes, can someone please help with this.

Sub AddButton()
Dim objMenu As Object
Dim objViewMenu As Object

With Application.CommandBars("Worksheet Menu Bar").Controls
Set objMenu = .Add(Type:=msoControlButton, ID:=1183)
objMenu.Caption = "JAYEMAN"
End With

With Application.CommandBars("Worksheet Menu Bar").Controls("JAYEMAN")
objMenu.OnAction = "FORM1"

End With
End Sub

I set the script to temporary = false but that doesn't help

With Application.CommandBars("Worksheet Menu Bar").Controls
Set objMenu = .Add(Type:=msoControlButton, ID:=1183, TEMPORARY:=False)
objMenu.Caption = "JAYEMAN"
End With

 

[Jaye7]

Anyone have a solution???