Public WithEvents EvtHandler3 As
Private Sub EvtHandler1_Click(ByVal CommandBarControl As Object, handled As Boolean, CancelDefault As Boolean)
    'On Error Resume Next
    MsgBox "常用规"
    handled = True
    CancelDefault = True
End Sub

我有个过程
sub kk ()
 MsgBox "运行这段代码"
end sub

怎么改MsgBox "常用规"，让程序运行至MsgBox "运行这段代码"

不好意思，我做的是外接程序，用call kk 说编译错误：子程序或函数未定义

谢谢，我已经解决了