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:
Dim intNumber As Integer
intNumber = ExitTest
'the number is going to be 3
MsgBox "The number is " & intNumber
Function ExitTest() As Integer
Dim intCounter As Integer
For intCounter = 1 To 5
If intCounter = 3 Then
ExitTest = intCounter
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.