Delete Rows Which Have Date 7 Days Old

Hi,

Thank you for the prompt reply. Between me replying to the previous post and checking back to seeing that you had replied, I managed to work it out with a little VBA:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
    Range("A5").Select
    Do While ActiveCell <> ""
    If ActiveCell.Value < Now() - 7 Then
    ActiveCell.EntireRow.Delete
    ActiveCell.Offset(-1, 0).Activate
    Else
    ActiveCell.Offset(1, 0).Activate
    End If
    Loop
Range("A1").Select
ActiveSheet.Protect Password:="", DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Application.ScreenUpdating = True
End Sub

Once again, thank you for all your help.

LSM