在应用程序启动时将PERSONAL.XLSB中的宏列表添加到右键单击快捷菜单

Question

我正在尝试在包含常用宏列表的右键单击快捷菜单中添加子菜单。我希望在打开任何工作簿时都会发生这种情况。

我尝试使用application.WorkbookOpen事件（我相信在打开任何工作簿时都会触发该事件）。

Private WithEvents app As Application
Private Sub app_WorkbookOpen(ByVal Wb As Workbook)
Dim Menu As Object
Set Menu = Application.ShortcutMenus(xlWorksheetCell).MenuItems.AddMenu("Macors", 1)


With Menu.MenuItems
    .Add "MacroName", "MacroName", , 1, , ""

End With

 Set MyMenu = Nothing
End Sub

Private Sub Workbook_Open()
  Set app = Application
End Sub

但是，它似乎在启动时不会启动。任何帮助将不胜感激。