IsDate macro missing some blank cells

[Jonathan King]

For some reason, IsDate is missing some blank cells and I can't seem to resolve the problem.

The blank cells have been thoroughly checked with IsBlank and IsEmpty and show as blank cells.

What happens is, the blank cells are then subtracted from a date and consistently return a -43524.

IsEmpty(.Range("I" & y).Value) was added as a second check, but some blank cells are still being missed.

Most likely, I'm missing something right before my eyes.

Any ideas?

Thanks beforehand!

----

With Sheets("Test")
lrow2 = .Cells(.Rows.Count, "A").End(xlUp).Row


For y = 1 To lrow2
If Not IsDate(.Range("I" & y).Value) Then
.Rows.Delete
End If
Next y

End With

 

[Michael M]

Ok then.....
I read this

but some blank cells are still being missed.

 

[Jonathan King]

In the case given, any cells that are not a date need to be deleted.

The empty cells issue came into play based on my incorrectly going from top-to-bottom , leading to missing cells. Once it was changed to go bottom-to-top, the missing cell issue was resolved.

There are places, where Michael's code will come in handy.