VBA Exit Subが機能しない

質問

以下のVBAコードが正常に機能しません。

Sub A()

処理

On Error Goto L1

処理

On Error Goto L2

処理

Exit Sub

L1:
MsgBox エラーメッセージ1
Exit Sub

L2:
MsgBox エラーメッセージ2
Exit Sub

End Sub

これを実行すると、エラーが出ておらず、正常に処理が行われているのに、エラーメッセージ2が表示されます。
間違いを指摘してください。

回答No.2

kkkkkm

> エラーが出ておらず、正常に処理が行われている

どのようにしてこれを確認したのでしょうか。

処理を全てやめて実行してみてはいかがですか

もしくは

On Error GoTo L1
On Error Goto L2

両方ともコメントにして実行してみるとか

回答No.1

emsuja

VBA の本体に 下記の様に STOP 命令を挿入した上で、実行を開始したのちに
STOP 命令で停止したら F8 キーでワンステップずつ実行したら、エラーの起きている個所が特定できませんか？

Sub A()
処理 0
On Error Goto L1
処理 1
On Error Goto L2
STOP ' ← これを挿入する
処理 2
Exit Sub

L1:
MsgBox エラーメッセージ1
Exit Sub

L2:
MsgBox エラーメッセージ2
Exit Sub

End Sub