マクロメニュー

Private Sub Workbook_addinInstall()
    '新たにメニューバーを追加する
    Set Menu = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
    'メニューバーの名前
    Menu.Caption = "○ミニマクロ"
   
        'サブメニュー
        Set SubMenu2 = Menu.Controls.Add
        SubMenu2.Caption = "複数ブックを1ブック"
        SubMenu2.OnAction = "確認_複数ブックを1ブックに"

        'サブメニュー
        Set SubMenu3 = Menu.Controls.Add
        SubMenu3.Caption = "複数シートを1シート"
        SubMenu3.OnAction = "確認_複数シートを1シート"
       
        'サブメニュー
        Set SubMenu4 = Menu.Controls.Add
        SubMenu4.Caption = "[●]空白埋め"
        SubMenu4.OnAction = "空白埋め"

        'サブメニュー
        Set SubMenu5 = Menu.Controls.Add
        SubMenu5.Caption = "[？]データ比較"
        SubMenu5.OnAction = "確認_複数列の比較"

        'サブメニュー
        Set SubMenu6 = Menu.Controls.Add
        SubMenu6.Caption = "[→←]結合"
        SubMenu6.OnAction = "文字列を結合する"

        'サブメニュー
        Set SubMenu7 = Menu.Controls.Add
        SubMenu7.Caption = "[↓×]指定列削除"
        SubMenu7.OnAction = "指定列削除"

        'サブメニュー
        Set SubMenu8 = Menu.Controls.Add
        SubMenu8.Caption = "[→×]指定行削除"
        SubMenu8.OnAction = "指定行削除す"
       
        'サブメニュー
        Set SubMenu9 = Menu.Controls.Add
        SubMenu9.Caption = "[↓○]指定列挿入"
        SubMenu9.OnAction = "指定列挿入"

        'サブメニュー
        Set SubMenu10 = Menu.Controls.Add
        SubMenu10.Caption = "[→○]指定行挿入"
        SubMenu10.OnAction = "指定行挿入"

        'サブメニュー
        Set SubMenu11 = Menu.Controls.Add
        SubMenu11.Caption = "[▽]オートフィルタ・分割解除"
        SubMenu11.OnAction = "オートフィルタ等解除"

        'サブメニュー
        Set SubMenu12 = Menu.Controls.Add
        SubMenu12.Caption = "[＄]リンク解除"
        SubMenu12.OnAction = "ハイパーリンク削除"

        'サブメニュー
        Set SubMenu13 = Menu.Controls.Add
        SubMenu13.Caption = "[全]指定列全角化"
        SubMenu13.OnAction = "指定列を全角に"
       
        'サブメニュー
        Set SubMenu14 = Menu.Controls.Add
        SubMenu14.Caption = "[名]名前の定義削除"
        SubMenu14.OnAction = "DeleteDefinedNames"
End Sub

Private Sub Workbook_AddinUninstall()
        'メニューバーを削除
        Application.CommandBars("Worksheet Menu Bar").Controls("○ミニマクロ").Delete
End Sub