Help needed to exit a for loop in vba

[kelly mort]

Hello everyone here,
I need help to exit a nested loop.

With the inner loops, I have been able to get solutions for how to exit them from this same forum.

But I have added a new loop – the outer one and I can’t seem to figure out how to exit it at the moment and I want the geniuses to help me figure out how to exit the outer loop in case the inner ones are exited successfully.

wStatus = 0
        With Application
            arr(1) = .Trim(freg2.Text)
            V1 = Split(arr(1), " ")
            
            For Each eSheet In Worksheets ‘ How do I exit this loop?
                
                Select Case eSheet.Name
                    Case “Sheet1”, “Sheet2”, “Sheet3”, “Sheet4”, “Sheet5”
                        elr = eSheet.Cells(Rows.Count, "B").End(xlUp).Row
                        If elr < 4 Then elr = 4
                        For Each sName In eSheet.Range("B4:B" & elr)
                            If Len(.Trim(arr(1))) = Len(.Trim(sName.Text)) Then
                                arr(2) = .Trim(sName.Text)
                                V2 = Split(arr(2), " ")
                                For i = LBound(V1) To UBound(V1)
                                    For j = LBound(V2) To UBound(V2)
                                        If LCase(V1(i)) = LCase(V2(j)) Then
                                            Matches = Matches + 1
                                            If Matches = UBound(V1) + 1 Then
                                                wStatus = 1
                                
                                                Exit For
                                            End If
                                        End If
                                    Next j
                                Next i
                            End If
                            Matches = 0
                        Next sName
                    Case Else
                End Select
                
            Next eSheet
            
        End With

 

[RoryA]

I'd probably refactor the code but you could just use a flag variable for each For loop that you need to monitor.

 

[Marc L]

Hi,​

​

or just using different kind of loop …​

 

[kelly mort]

I'd probably refactor the code but you could just use a flag variable for each For loop that you need to monitor.

Hi,​

​

or just using different kind of loop …​

Different kind of loop, how?

I am always open for cooler ways of doing things.

So you can show me what you have in mind. Thanks

 

[Marc L]

         Dim S&
    Do
             S = S + 1
        With Worksheets(S)
            Select Case …
                For …
                    If … Then
                  
                        Exit Do
                    End If
                Next …
            End Select
        End With
    Loop Until S = Worksheets.Count

 

[kelly mort]

@Marc L ,
I am confused.

Which of the for loops is your sample pointing to?

I see only 1 for loop in your case whereas my sample had 4.

I will be glad if you can show me how to implement it to meet my sample requirement above.

Thanks.

 

[Akuini]

Another option: use GoTo

           For Each eSheet In Worksheets ' How do I exit this loop?
                
                Select Case eSheet.Name
                    Case “Sheet1”, “Sheet2”, “Sheet3”, “Sheet4”, “Sheet5”
                        elr = eSheet.Cells(Rows.Count, "B").End(xlUp).Row
                        If elr < 4 Then elr = 4
                        For Each sName In eSheet.Range("B4:B" & elr)
                            If Len(.Trim(arr(1))) = Len(.Trim(sName.Text)) Then
                                arr(2) = .Trim(sName.Text)
                                v2 = Split(arr(2), " ")
                                For i = LBound(v1) To UBound(v1)
                                    For j = LBound(v2) To UBound(v2)
                                        If LCase(v1(i)) = LCase(v2(j)) Then
                                            matches = matches + 1
                                            If matches = UBound(v1) + 1 Then
                                                wStatus = 1
                                
                                                GoTo skip:
                                            End If
                                        End If
                                    Next j
                                Next i
                            End If
                            matches = 0
                        Next sName
                    Case Else
                End Select
                
            Next eSheet
skip: