Delete Blank row from sheet3 onwards

[howard]

I have written code to delete that rows from row 2 onwards from sheet 3 where there ia nothing in COl A

when Running the macro I get run time error "For without Next"


It would be appreciated if someone could kindly amend my code

 Sub Delete_Blank_Row()
Dim lr As Long, I As Long, R As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row
  For I = 3 To Worksheets.Count
 For R = lr To 2 Step -1
   
With Worksheets(I)

    If Range("A" & R).Value = "" Then
        Rows(R).Delete
    End If
    
End With
Next R

End Sub

 

[howard]

I certainly am, thanks to your help