Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Menu As Object
    For Each Menu In Application.CommandBars.ActiveMenuBar.Controls
        If Menu.Caption = "Macros" Then
            Menu.Delete
        End If
    Next
End Sub

Private Sub Workbook_Open()
    Dim myMenuBar As Object
    Dim newMenu As Object
    Dim Menu As Object
    Dim ctrl As Object
    
    Set myMenuBar = Application.CommandBars.ActiveMenuBar
    
    'Crea el menu desplegable
    For Each Menu In myMenuBar.Controls
        If Menu.Caption = "Macros" Then
            Exit Sub
        End If
    Next
    
    Set newMenu = myMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
    newMenu.Caption = "Macros" 'Nombre del Item
    
    '-----------------------------------------
    'Se adiciona un nuevo elemento al menu
    Set ctrl = newMenu.Controls.Add(Type:=msoControlButton)
    ctrl.Caption = "Join Data " 'Nombre del Item
    ctrl.Style = msoButtonCaption
    ctrl.OnAction = "JoinData.JoinData" 'Rutina que se ejecutará
    '----------------------------------------
    
   

End Sub