Sub DeleteNotCurrentDate()
qend = [F65536].End(xlUp).Row
Range("F" & qend).Select:
For i = qend To 1 Step -1:
Range("F" & i).Select
If ActiveCell.Value < Date Then ActiveCell.EntireRow.Delete
Next i
End Sub

somethinglikeant


SITCFanTN wrote:
Can somebody please help me with this code, I'm trying to delete all rows
that are not dated the current date. My date format in column F is
mm/dd/yyyy, do I need to state that. Thanks

LastRow = Cells(Rows.Count, "F").End(xlUp).Row
For RowNdx = LastRow To 1 Step -1
If StrComp(Cells(RowNdx, "F"), =Today(), vbTextCompare) < 0 Then
Rows(RowNdx).Delete
End If
Next RowNdx