Excel VBA出错时GoTo无法正常工作

Question

请参阅我的Sub下面。 如果在运行MyMacro宏时发生错误，它不会转到ErrHandler，只是表现为默认值，即On Error Goto 0

Sub GoGoGo()

    On Error GoTo ErrHandler

    Application.Run "'MyFile.xlsm'!Module1.MyMacro"
    Msgbox("Success!")
    Exit Sub

ErrHandler:
    MsgBox ("Error")

End Sub

有没有解决的办法？

非常感谢任何收到的帮助:)

Answer 1

试试吧？ 我是VBA的新手，但可能会奏效。

Sub GoGoGo()

On Error Resume Next

Application.Run "'MyFile.xlsm'!Module1.MyMacro"
Msgbox "Success!"
On Error goto 0
MsgBox "Error"

End Sub