Option Explicit
Public WithEvents MyEvent As VBIDE.CommandBarEvents

Private Sub MyEvent_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
    On Error Resume Next
    Call ControlAction(CommandBarControl)  '单击时执行“插入代码”过程，则传递一个参数，该参数为菜单名称
    Handled = True
    CancelDefault = True
    Call ErrRecovery
End Sub