creating new custom menu items

[tryer]

I have the code below which I use to create a custom menu that runs on workbook opening and is removed on workbook closing. this works fine but I would like to have some items (such as expand and collapse below) as single button that will activate the relevent subroutine. I have tried what I thought to be the obvious solution of simply creating custom buttons and assigning a macro to them. This works fine but they appear on all workbooks I open which I don't want so I went down the road of adapting the custom menu code below. The menu 'mytag' works fine, so I added 'mytag2' and 'mytag3'. (at the bottom of the code)
The menu's build and remove on workbook opening and closing and on the first click of the mouse on either expand or collapse it initiates the macro correctly. However after the first click the macros are run as soon as the mouse runs over the menu rather than when it is clicked.
Can you suggest a solution to this or possibly a better option of building custom buttons on workbook open and removing them on close

Sub CreateMenu()

Dim cbMenu As CommandBarControl, cbSubMenu As CommandBarControl
    RemoveMenu ' delete the menu if it already exists
    ' create a new menu on an existing commandbar
      
    
    Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With cbMenu
        .Caption = "&Report Menu"
        .Tag = "MyTag"
        .BeginGroup = False
    End With
    If cbMenu Is Nothing Then Exit Sub ' didn't find the menu...
    
    
     Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
    With cbSubMenu
        .Caption = "&First sub menu"
        .Tag = "SubMenu1"
        .BeginGroup = True
    End With
   ' add menuitem to submenu
    With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "&Run Report 1"
        .OnAction = "Firstreport"
        .Style = msoButtonIconAndCaption
        .FaceId = 71
        .State = msoButtonUp '
    End With
   ' add menuitem to submenu
    With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "&Run Report 2"
        .OnAction = "secondreport"
        .Style = msoButtonIconAndCaption
        .FaceId = 71
        .State = msoButtonUp '
    End With
    
     ' add a submenu
    Set cbSubMenu = cbMenu.Controls.Add(msoControlPopup, 1, , , True)
    With cbSubMenu
        .Caption = "&Second sub menu"
        .Tag = "SubMenu1"
       
        .BeginGroup = True
    End With

    ' add menuitem to submenu
    With cbSubMenu.Controls.Add(msoControlButton, 1, , , True)
        .Caption = "&report title"
        .OnAction = "run_macro"
        .Style = msoButtonIconAndCaption
        .FaceId = 71
        .State = msoButtonUp '
    End With
    'THESE ARE THE MENU ITEMS GIVING TROUBLE
        With cbMenu
        .Caption = "&Expand"
        .Tag = "MyTag2"
        .OnAction = "unhide_columns"
         End With
    If cbMenu Is Nothing Then Exit Sub ' didn't find the
    
      Set cbMenu = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)
    With cbMenu
        .Caption = "&Collapse"
        .Tag = "MyTag3"
        .OnAction = "Hide_columns"
        '.BeginGroup = False
    End With
    If cbMenu Is Nothing Then Exit Sub ' didn't find the
    
    
    
    
End Sub

Sub RemoveMenu()

    DeleteCustomCommandBarControl "MyTag" ' deletes the new menu
    DeleteCustomCommandBarControl "MyTag2" ' deletes the new menu
    DeleteCustomCommandBarControl "MyTag3" ' deletes the new menu
End Sub