I set a flag and check it....

Sub INCC()
dim rng as range
dim c as long
dim r as long
dim FoundIt as boolean

Set rng = ActiveSheet.UsedRange.Cells
foundit = false
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
foundit = true
Exit For
End If
Next r
If foundit = true Then
Exit For
end if
'more code here (maybe...)
Next c
more code here.....
End Sub

Jan Kronsell wrote:

Is it possibble to exit two for loops at once?

I have some code like this

Sub INCC()
Set rng = ActiveSheet.UsedRange.Cells
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
If something Then
Some code here....
Exit For
End If
Next r
If something Then Exit For
Next c
more code here.....
End Sub

Now I was wandering if its possible to exit both loops if the condtion in
the inner loop is met, without having to test again in to leave the outer
loop.

Jan

--

Dave Peterson