Rows Not Deleting?

My instinct is telling me I am overlooking something really simple ...

I have this code that is meant to remove blank rows from my database ...

       With ws_schedule
            lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
            cnt_blnk = 0
            For i = 2 To lrow
                If .Cells(i, 1) = "" Then 'blank
                    cnt_blnk = cnt_blnk + 1
                    .Rows(i).EntireRow.Delete
                End If
            Next i
        End With

This is not being very effective, or thorough. There are still many blank rows existing.
I looked at the empty rows and tried to assess whether the cell in A maybe contained a hidden character (by using LEN), but they were all comping up as zero.

Any thoughts why these rows still exist?