How to break the FOR loop?

E

Eric

Does anyone have any suggestions on how to exit FOR loop?
Thanks in advance for any suggestions
Eric

For Each myCell In myRng.Cells
' if wkbk.Sheets("Check").Range("O18").Value = 0 then exit FOR loop
Next myCell
 
E

Eric

Does it look like what you suggest?
When I open this file, it pops up a message about having Next without For.
Error stop here as shown below.
Do you have any suggestions on how to fix it?
Thanks in advance for any suggestions
Eric

For Each myCell In myRng.Cells
if wkbk.Sheets("Check").Range("O18").Value = 0 then
Exit For
Next myCell ' Pointing here
 
R

Rick Rothstein

Using Exit For does not relieve you of the responsibility of closing off
your If..Then statement. Try this...

For Each myCell In myRng.Cells
If wkbk.Sheets("Check").Range("O18").Value = 0 Then
Exit For
End If
Next myCell ' Pointing here

However, I would point out that your loop, as shown, doesn't make much sense
as you aren't using myCell anywhere within it... if O18 on your Check sheet
equals 0, your loop will stop before it gets going. I'm guessing there is a
lot code you didn't show us. Since your If..Then statement is not dependent
on your loop, I would do it something like this instead...

If wkbk.Sheets("Check").Range("O18").Value = 0 Then
For Each myCell In myRng.Cells
' Your loop code goes here
Next myCell ' Pointing here
End If
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top