Assumes valid dates & times are in Column A with Range A1 being a heading;
Sub DoIt()
Dim lRow As Long
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
On Error Resume Next
For lRow = Cells(Rows.Count, "A").End(xlUp).Row To 2
If Int(Cells(lRow, "A")) _
= DateSerial(2010, 4, 29) Then _
Cells(lRow, "A").EntireRow.Delete
Next lRow
On Error GoTo 0
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
--
Regards
Dave Hawley
www.ozgrid.com
"Poohberry" wrote in message
...
I have a spreadsheet that I want to delete the entire row if it contains
04-29-2010 but there is a time stamp that changes after that.
How do I delete all the rows containing 04-29-2010 with random data after?
Thanks in advance for your brilliance!