Compile error "Next without For"

[jimayers]

Hi there,
When I run this code I get the compile error "next without for" and I can't figure out why

Sub Find_Class_A1_then_Hide()
Application.ScreenUpdating = False
Dim r, Lastrow, cLastrow, tRow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
For r = 1 To Lastrow
cLastrow = Cells(r + 6, "E").End(xlDown).Row
tRow = r - 4
MsgBox ("r= " & r & " - " & "cLastrow = " & cLastrow)
    If Cells(r, "C") = "Basic I" Then
        Rows(2).Hidden = True
        Rows(tRow & ":" & cLastrow).Hidden = True
Next r
Application.ScreenUpdating = True
End Sub

Thanks for your help - I just can't see what I'm overlooking.

 

[V_Malkoti]

Missing End If statement before Next r statement

For r = 1 To Lastrow
cLastrow = Cells(r + 6, "E").End(xlDown).Row
tRow = r - 4
MsgBox ("r= " & r & " - " & "cLastrow = " & cLastrow)
    If Cells(r, "C") = "Basic I" Then
        Rows(2).Hidden = True
        Rows(tRow & ":" & cLastrow).Hidden = True
[COLOR=#0000ff]    End If[/COLOR]
Next r

 

[sericom]

You've got an If without an End If

 

[jimayers]

Missing End If statement before Next r statement

For r = 1 To Lastrow
cLastrow = Cells(r + 6, "E").End(xlDown).Row
tRow = r - 4
MsgBox ("r= " & r & " - " & "cLastrow = " & cLastrow)
    If Cells(r, "C") = "Basic I" Then
        Rows(2).Hidden = True
        Rows(tRow & ":" & cLastrow).Hidden = True
[COLOR=#0000ff]    End If[/COLOR]
Next r

That was it - thanks!!!

 

[jimayers]

You've got an If without an End If

Yep - that was it...but why the compile error "next without for"?

 

[hicksi]

... because

It is compiling within the IF block of code.
When it encounters the NEXT, it looks back to find the equivalent FOR (within that block of code).