Hi,

I am writing a code that will go down a column C in worksheet Data containing Customer IDs, starting at row 3 and going down to the last populated row
If a cell contains an ID, I find the row in the Master (worksheet SUBS) for the customer having that ID
Column P of worksheet SUBS contains the email address of the customer.
Using this, an email is generated to the customer.

After finding the customer, if the email address in column P in worksheet SUBS is blank, I want to skip this customer and go to the next row in Worksheet Data.

The Code I have written is as follows:

dim Lrow As Long, iCMem As Long, 
Lrow = Worksheets("Data").Range("C3:C" & Rows.Count).End(xlUp).Row

For i=3 to Lrow
     ' Find the row in Master where Customer ID = activecell value
     On Error Resume Next
                    With ThisWorkbook.Worksheets("SUBS").Range("B:B")                                                   ' find a match for the customer ID in worksheet SUBS
                        iCMem = .Find(what:=Range("C" & iRemRow).Value, LookIn:=xlValues, LookAt:=xlWhole, _
                            SearchOrder:=xlByColumns, SearchDirection:=xlDown, MatchCase:=False).Row
                    End With
                    On Error GoTo 0
                    If iCMem = 0 Then                                                                                                  ' ID in worksheet Data is invalid
                        MsgBox "Customer with ID " & Range("C" & iRemRow).Value & " could not be found", _
                            vbInformation, "Invalid Customer ID"
                        Exit Sub
                    End If
                    ' If email address in worksheet SUBS is blank, skip to next row in worksheet Data
                    If Worksheets("SUBS").Range("P" & iCMem).Value = "" Then                                              ' if email address of customer is blank
                         ' This is where I am stuck. How do I skip to the next record in worksheet data                ' go to the next row in worksheet Data
                    End If
                    ' Code for generating the email comes here
I tried using Exit For, but this exits the loop. I tried to use Resume Next. This gave me an error "Resume without error"

How do I get the For...Next Loop to continue ? Any help will be greatly appreciated

Anand