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 回答日時： 2004/10/01 14:14

もう一つ

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 回答日時： 2004/10/01 13:54

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返しパターンもありがとうございます！！

お礼日時：2004/10/01 14:50