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
when Running the macro I get run time error "For without Next"
It would be appreciated if someone could kindly amend my code
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