add menu in excel

[andre5]

Good day

I'm using the below code to create a menu. It works 100%. How do I send it to an other user. I have seen someone sending an attachment and when double clicking on the attachment it creates the menu. How is it done?

Sub CreateMenu()
     Dim MenuObject As CommandBarPopup
    Dim MenuItem As Object
    Dim SubMenuItem As Object

 '    Call deletemenu

    Set MenuObject = Application.CommandBars(1). _
        Controls.Add(Type:=msoControlPopup, _
        Before:=10, Temporary:=True)
    MenuObject.Caption = "&Salaries"

    Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
    MenuItem.OnAction = "Opendb"
    MenuItem.Caption = "&Salary Adjustments"
 
    Set MenuItem = MenuObject.Controls.Add(Type:=msoControlButton)
    MenuItem.OnAction = "AboutMe"
    MenuItem.Caption = "Abou&t Program"
    MenuItem.BeginGroup = True
End Sub

EDIT: added code tags - Moderator

 

[Derek Brown]

Have you tried the "Attach..." option on the Toolbars TAB on the View | Toolbars | Customize ..... menu?