Select your data,
Do Data=Filter=Autofilter

in the dropdown for the column that contains the date, select custom,
then select Greater than or equal to, then enter the date for the criteria

Only the rows meeting the criteria will be visible.

Select all the data, do edit=Copy
mover to the new sheet and do select A4, then do edit =Paste

Only the visible rows will be copied in xl97 and later.

If you need code, turn on the macro recorder while you do this. Then adjust
the code to make the criteria 7 days later than the current date and
otherwise modify it to meet your needs.

You turn off the data filter by doing Data=Filter=Autofilter (which acts
as a toggle).

--
Regards,
Tom Ogilvy


"MrAlMackay" wrote in message
...
Is it possible to run a macro that will do the following:
1) Copy all rows where the date is = 7 days less than today

2) Paste in a new sheet on row 4, sheet called "Completed Dates in week".

Appreciate your help on this.

Many Thanks, Al Mackay

( )