VBAコード実行を中止する方法は？（１プロシージャだけでなく）

質問

Exit Subは子だけしか中止できないのですね。
子でエラー起きたら、親もその他もまとめて中止することはできないのでしょうか？

Sub 子()
　　Dim i As Integer
　　For i = 0 To 5
　　　　If 3 < i Then
　　　　　　'' ここで親も終了したい
　　　　End If
　　　　MsgBox i
　　Next
End Sub

Sub 親()
　　子
　　MsgBox "エラーならここまで来ないで"
End Sub

回答No.2

momoturbo · ベストアンサー

もう一つ

Function 子() as Integer
　　Dim i As Integer
　　子 = 0
　　For i = 0 To 5
　　　　If 3 < i Then
　　　　　　'' ここで親も終了したい
　　　　　　子 = -1
　　　　　　Exit Function
　　　　End If
　　　　MsgBox i
　　Next
End Sub

Sub 親()
　　if 子=0 Then
　　　　MsgBox "エラーならここまで来ないで"
　　End If
End Sub

回答No.1

momoturbo

Endをいれてみては？

Sub 子()
　　Dim i As Integer
　　For i = 0 To 5
　　　　If 3 < i Then
　　　　　　'' ここで親も終了したい
　　　　　　End　　
　　　　End If
　　　　MsgBox i
　　Next
End Sub

Sub 親()
　　子
　　MsgBox "エラーならここまで来ないで"
End Sub

お礼

End！
そんなステートメントがあったんですね。
Excel VBAリファレンス書2冊ほどひっくり返してみたのですがわかりませんでした。ありがとうございました！上のFunction返しパターンもありがとうございます！！