You need to delete going backwords - otherwise, the when you delete, rows
shift and you can end up skipping rows. ex: If I delete row 19, row 20
becomes 19, so the next row I check is the old row 21 and row 20 doesn't get
checked.

Public Sub Delete_Rows()
Dim i as Long
for i = 28 to 19 step -1
if isempty(cells(i,"N")) then
rows(i).Delete
End if
Next
End Sub

--
Regards,
Tom Ogilvy


" wrote:

I'm new to VBA and trying to learn how to write code. My objective is
to automatically delete entire rows between row 19 and row 28 when the
value in column 11 in any of these rows is empty (null). Following is
the code I've written which, of course, does not work.

Public Sub Delete_Rows()

Dim GlobalRange As Range

Dim Range As Range

Set GlobalRange = Application.ActiveSheet.Range("N19:N28")

For Each Range In GlobalRange
If Range.Cells = "null" Then EntireRow.Delete

Next


End Sub