"If Not" with a date

J

jrh

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
 
B

Bob Phillips

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)
 
Top