Try;
Sub DeleteOldDates()
Dim lDate As Long
lDate = Date - 365
With Sheets("details")
.AutoFilterMode = False
.Range("A1:A2").AutoFilter Field:=1, Criteria1:="<" & lDate
.AutoFilter.Range.Offset(1,
0).SpecialCells(xlCellTypeVisible).EntireRow.Delet e
.AutoFilterMode = False
End With
End Sub
--
Regards
Dave Hawley
www.ozgrid.com
"Pas" wrote in message
...
How do I create a macro that will delete entire row if older then 365
days.
Dates are on col "A"
last col of data = "U"
Data is kept in sheet "details"
Thank you