Sorting Dates (this is tough)

[hellfire45]

So I want to autofilter a column but I want to sort it to show the values that are in the last weeks business days.
Let's say it is Monday, I want to autofilter to last week Mon-Fri. Let's say the code looks like this:

With wksdata2

.Range("A:BJ").AutoFilter Field:=152, Criteria1:=array(today()-3, today()-4, Operator:=xlOr

endwith

Can anybody tell me how to write the criteria so that it does this properly?

Thanks!!!

 

[hellfire45]

I think I'm close with

wksdata2.Range("A:BJ").AutoFilter Field:=152, Criteria1:=Array(Date - 9, Date - 8, Date - 7, Date - 6), Operator:=xlOr

but its still not working.