vba exit function code example

Example: excel vba exit for next loop

'In VBA how to exit a For Next loop when a condition 
'is met: use Exit For.

For i = 1 To 1000
    c = c + 1
    If c = 750 Then Exit For
Next

'Exit For can also be used inside a For Each loop:
For Each r In [A1:A10]
	c = c + c
	If r.Value = "Hi" Then Exit For
Next

'-------------------------------------------------------------------
'Note:      If multiple For Loops are nested, Exit For transfers
'           control to the next higher level of nesting.
'-------------------------------------------------------------------


'VBA also has the Exit Do statement for Do Loops:
Do
    c = c + 1
    If c = 750 Then Exit Do
Loop While i < 1000

'VBA does NOT have an Exit statement for While Wend loops. While Wend
'loops must run through completion, or be interrupted
'by a GoTo statement:
While i < 1000
    c = c + 1
Wend