Delete row based upon Date

[SamT]

Sub VBAX_SamT_DeleteWeekOld()
Dim r As Long

'Must delete Rows from bottom up
For r = Cells(Rows.Count, "F").End(xlUp).Row to 11 Step - 1
   If CDate(Cells(r, "F")) < Date - 7 Then Rows(r).Delete
Next r
End Sub