Delete Rows Which Have Date 7 Days Old

Hi,

I was wondering if somebody could help me with a little bit of code?

When the sheet is opened, I would like some code to search down column A, starting from cell "A5" and delete all rows which contain a date which is greater than 7 days ago.

The dates are in order from the most recent being at the top.

For example:
Today is 29/01/2010, I would like all rows which have a cell in column A containing Today-7() to be deleted. 28/01/2010 to stay. 19/01/2010, delete row.


Hope that makes sense?

Cheers,

LSM

*cross post @ http://www.mrexcel.com/forum/showthread.php?t=444663*