クラスモジュールで作成したメソッドで元のSubを終了するには

Question

クラスモジュールで作成したメソッドで元のSubを終了させることが出来るでしょうか？

例えば以下の表で実行すると、0が有れば元のSubも終了したいのですが、クラスのSubだけ終了して元のSubは終了できません。
メッセージボックスに「A5に0があります」とだけ表示させたいのですが、元のSubのメッセージボックス「完了」も表示されます。
0が有った時点で元のSubを終了させることは可能でしょうか？

A	B	C
27
89
45
32
0
12

'標準モジュール
Sub MySub()
    Dim i As Long
    Dim c As CheckList
    Set c = New CheckList
    For i = 1 To 6
        c.Check (i)
    Next i
        
    MsgBox "完了"
End Sub

'クラスモジュールCheckList
Public Sub Check(ByVal i As Long)
    If Cells(i, 1) = 0 Then
        MsgBox "A" & i & "に0があります"
        Exit Sub
       End If
End Sub

Answer 1

呼び出し元、つまり MySub が「0 があったかどうか」を知る必要があるので戻り値が返せない Sub では出来ません。Function を使います。

Public Function Check(ByVal i As Long) As Boolean
    If Cells(i, 1) = 0 Then
        MsgBox "A" & i & "に0があります"
        Check = True
        Exit Function
    End If
    Check = False
End Sub

この様に Check を変更し、呼び出し元 MySub で戻り値をチェックします。

Sub MySub()
    Dim i As Long
    Dim c As CheckList
    Set c = New CheckList
    For i = 1 To 6
        If c.Check (i) Then
            ' 0 が見つかったので止める
            Exit For
        End If
    Next i

    MsgBox "完了"
End Sub

Comments

[Taka1108]

ありがとうございました。解決しました。

Answer 2

「Exit Sub」ではなく「End」で終わることができます。
※元のSubだけでなく他のSubも関係する場合、すべて終わるのでご注意ください。