I must apologize, it works fine. It was my brain that was not working
properly.

"OssieMac" wrote:

Hi again Greg,

Had another look and this might work better.

LstRow = Cells(Rows.Count, "C").End(xlUp).Row
Set MyRng = Range("C2:C" & LstRow)

With MyRng
For i = .Rows.Count To 1 Step -1
If .Cells(i, 1) = "" Then
.Cells(i, 1).EntireRow.Delete
End If
Next i
End With

--
Regards,

OssieMac