Exiting nested For Each

[chuckjitsu]

Hello. I searched here for an answer and found that setting a Boolean value to trigger the exit seemed the best way to go. That said, I wasn't quite sure of the mechanics/syntax of it. Given the dummy code below, how would I use a Boolean to exit the var3 For Each if a condition is met and return to the var1 For Each? (I just used ellipses instead of writing out the entire For Each piece)

Sub grot()


For Each var1 in...
For each var2 in...
For each var3 in...

Next var3
Next var2
Next var1


End Sub

 

[Phuoc]

Try this:

Sub grot1()

Dim isExit As Boolean
For Each var1 In v1 '...
For Each var2 In v2 '...
For Each var3 In v3 '...
    '...
    If isExit = True Then
        isExit =  False
        GoTo ContinueVar1
    End If
Next var3
Next var2
ContinueVar1:
Next var1
End Sub

or:

Sub grot2()

Dim isExit As Boolean
For Each var1 In v1 '...
For Each var2 In v2 '...
For Each var3 In v3 '...
    '...
    If isExit = True Then Exit For
Next var3
    If isExit = True Then
        isExit = False
        Exit For
    End If
Next var2
Next var1

 

[chuckjitsu]

Try this:

Sub grot1()

Dim isExit As Boolean
For Each var1 In v1 '...
For Each var2 In v2 '...
For Each var3 In v3 '...
    '...
    If isExit = True Then
        isExit =  False
        GoTo ContinueVar1
    End If
Next var3
Next var2
ContinueVar1:
Next var1
End Sub

or:

Sub grot2()

Dim isExit As Boolean
For Each var1 In v1 '...
For Each var2 In v2 '...
For Each var3 In v3 '...
    '...
    If isExit = True Then Exit For
Next var3
    If isExit = True Then
        isExit = False
        Exit For
    End If
Next var2
Next var1

Hi Phuoc. That'll do the trick. Thanks for the solution.