How To Exit A VBA Loop

Hi, there are times when you need to exit a loop after a certain condition has been met.

How do you exit function in VBA?

In the following example, you are going to see how to exit a function in VBA:

Sub StartNumbers()
    Dim intNumber As Integer
    
    intNumber = ExitTest
    
    'the number is going to be 3
    MsgBox "The number is " & intNumber
    
End Sub

Function ExitTest() As Integer
    Dim intCounter As Integer
    
    For intCounter = 1 To 5
        If intCounter = 3 Then
            ExitTest = intCounter
            Exit Function
        End If
    Next
End Function

How do you stop loop in VBA?

In the following example you’ll discover how easy it is to exit the vba loop.

For the “For” loop just tell the code, to “Exit For”.

and for the “Do” Loop just tell the code to “Exit Do”.

Sub ExitForLoop()
    
    Dim intCount As Integer
    
    For intCount = 1 To 100
        
        Debug.Print intCount
        
        If intCount = 50 Then
            MsgBox "50 has been reached.  Now exiting...", , "Exit For"
            Exit For
        End If
    Next
    
End Sub

Sub ExitDoLoop()
    
    Dim intCount As Integer
    
    Do Until intCount = 100
        
        Debug.Print intCount
        
        If intCount = 50 Then
            MsgBox "50 has been reached.  Now exiting...", , "Exit Do"
            Exit Do
        End If
        
        intCount = intCount + 1
    Loop
    
End Sub

In some instances “Exit For” or “Exit Do” doesn’t work. In these cases try using the keyword “End” (check out this sample) or add a “Go To (something)” label, then exit the sub there.

Want to see a “Do WHILE LOOP” in Access VBA? Ciick me.

You are also going to find out:
What does a loop do in VBA?

Hopefully that helps someone. Let me know if you have any questions.

Click here for related posts on looping and exiting in VBA.

By the way, if you got or are getting value from the VBA information, please give me a tip, thanks!