Try

LstRow = Cells(Rows.Count, "A").End(xlUp).Row

For r = LstRow To 2 Step -1
If Not Cells(r, 4) = DateSerial,2004,12,31) Then Cells(r,
4).EntireRow.Delete
Next r


For r = LstRow To 2 Step -1
If Not Cells(r, 4) < "" Then Cells(r, 4).EntireRow.Delete
Next

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"jrh" wrote in message
...
Why doesn't this delete rows with dates before 1-1-03?

Thank you.

LstRow = Cells(Rows.Count, "A").End(xlUp).Row

For r = LstRow To 2 Step -1
If Not Cells(r, 4) = "12/31/02" Then Cells(r,
4).EntireRow.Delete
Next r

also how do I write an If not as above to delete anything
that is not a nonblank?

Thank you