Below is a simple for loop I am running on an open excel worksheet.
I get "Compile Error: Next without For" at the line highlighted.
Can figure out where the syntax has gone awry
. My IF statements appear to be closed. Advice?
I get "Compile Error: Next without For" at the line highlighted.
Can figure out where the syntax has gone awry

Code:
For c = 17 To iCol
rs.AddNew
If Cells(nRow, c) = "" Or IsNull(Cells(nRow, c)) = True Then
Exit For
ElseIf Cells(1, c) = "Asst.Number" Then
If Cells(nRow, c) = oSheet.Range("D" & nRow).Value Then
[B][COLOR=red]Next c[/COLOR][/B]
Else
LinkedAssmtNumber = Cells(nRow, c)
End If
End If
rs("ID") = oSheet.Range("A" & nRow).Value
rs("EO Number") = oSheet.Range("B" & nRow).Value
rs("Issue") = oSheet.Range("C" & nRow).Value
rs("Assessment Number") = LinkedAssmtNumber
rs("EO Status") = oSheet.Range("E" & nRow).Value
rs("Group") = oSheet.Range("F" & nRow).Value
rs("Title") = oSheet.Range("G" & nRow).Value
rs("Class") = oSheet.Range("H" & nRow).Value
rs("Start Date") = oSheet.Range("I" & nRow).Value
rs("Approved Date") = oSheet.Range("J" & nRow).Value
rs("Created By") = oSheet.Range("K" & nRow).Value
rs("Approved By") = oSheet.Range("L" & nRow).Value
rs("Applicability") = oSheet.Range("M" & nRow).Value
rs("CEA") = oSheet.Range("N" & nRow).Value
rs("Work Order") = oSheet.Range("O" & nRow).Value
rs("Customer") = oSheet.Range("P" & nRow).Value
rs.Update
Next c