How to exit a loop.
I am choosing to have this exit loop section separately from the loops in the vba basics section as I feel like the 'Exit do' or 'Exit For' syntaxes are often forgotten. I have seen a lot of VBA code with a lot of unnecessary Error handling parts that could have been eliminated. In general I feel like most codes can be written without error handling syntaxes by encapsulating them in if statements or some things in variables instead avoiding any error handling which in my perspective leaves you with a cleaner code and less "jumping" around.
My Worksheet below
How to Exit a Do Loop
Sub ExitDO()
Dim i As Integer
Do While i < 10
i = i + 1
If Cells(i, 1) = "Thx." Then
Exit Do
End If
Loop
'Displays Thx. in the message box as shown below.
MsgBox "My final destination is '" & Cells(i, 1) & "'"
End Sub
How to Exit a For Loop
Sub ExitFOR()
For i = 1 To 10
If Cells(i, 1) = "Thx." Then
Exit For
End If
Next i
'Displays Thx. in the message box as shown below.
MsgBox "My final destination is '" & Cells(i, 1) & "'"
End Sub
Comments