Deleting Rows with a specific word

[Guzzlr]

For Each sht In ActiveWorkbook.Worksheets
    If sht.Visible And (sht.Name = "Ramp") Then
        sht.Activate
    End If
    
    For r = Cells(Rows.Count, "M").End(xlUp).Row To 7 Step -1
        If Cells(r, "M").Value <> "Ramp" Then Rows(r).Delete
    Next r
End If

Hello All.
I'm trying to delete an entire row, if the word "Ramp" does not appear in column "M", beguinning on row 7...but I cant seem to get my End If and Next r in the proper place
Can someone lead me in the right direction please
Thank you

 

[Fluff]

Try

Sht.Range("M" & r).Resize(, 5).Delete xlUp

 

[Guzzlr]

Try

Sht.Range("M" & r).Resize(, 5).Delete xlUp

For Each sht In ActiveWorkbook.Worksheets
If sht.Visible And UCase(sht.Name) = "RAMP" Then
    For r = sht.Cells(sht.Rows.Count, "M").End(xlUp).Row To 7 Step -1
        If UCase(sht.Cells(r, "M").Value) <> "RAMP" Then
        sht.Range("M" & r).Resize(, 5).Delete xlUp
    Next r
End If
Next sht

So I'm just not following why Im getting a compile error "Next with out a For" in the above code, what am i doing Wrong?
Thanks

 

[Fluff]

You're missing an "End If" before the "Next r"