Skip row in For...Next loop to automate e-mails

Hello folks

I'm hoping this is a quick fix but I cannot get this to work and it's driving me mad. I'm adapting some code I found to automate sending e-mails from an Excel file. So far that works fine. I've then added a column to say 'Yes' once an e-mail has been sent so that the macro doesn't keep sending e-mails (FYI once this code is fully working I'll use Task Scheduler to run the procedure every day, hence the need to check off rows that have had an e-mail previously). This works fine also.

What I want to do now though is tell this macro to skip a row if an e-mail has been sent and move to the next row, and I cannot get this to work. What piece of code do I need to do this? Any help is very much appreciated, I've attached my Excel file and the code I'm using is below:

Please Login or Register  to view this content.

Thanks
Kenny

Hi
Try this code:

Sub Check_Tasks()

Dim lastRow As Long, r As Long

With Sheets("todo")
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
For r = 5 To lastRow
If Cells(r, "I").Value = "Yes" Then 'How do I skip and go to next line that doesn't contain a 'Yes' in column I?
Next r
End If
If Cells(r, "E").Value = Date Then Send_Outlook_Email "Task Reminder", .Cells(r, "H").Value, .Cells(r, "G").Value

Cells(r, "I").Value = "Yes"

Next r
End With

End Sub

ARGK, Norie and Richard

Thanks all of you for responding so quickly, I did try adding a 'Next r' to my code but wasn't wrapping that in an 'End If' statement so I feel I was on the right lines at least! Kudos to this forum and it's collection of excellent, informative contributors

Kenny