Filter by week?

[boxboy30]

Hello everyone,

so I've created this code that will filter out the month of Jan. for me and copy and paste into a new sheet....I would like to tweek the code to filter every week though. Is it possible to tell the computer to filter for 7 days and put each week into a different sheet?

code:

ActiveSheet.Range("$D$1:$D$" & FLR(1) - 1).AutoFilter Field:=1, Criteria1:=Array("="), Operator:=xlFilterValues, Criteria2:=Array(1, "1/31/2011")
Cells.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste

 

[boxboy30]

I guess this can't be done. I've tried many different ways, like filtering with the xlLast7Days in my Array and nothing happens. What am I doing incorrectly?