Kurt

Try this for the filter

Sub FilterData()
Dim sDates(1 To 2) As String
Dim ddates(1 To 2) As Date
Dim iWeekDay(1 To 2) As Integer

ddates(2) = Now() - Weekday(Now())
ddates(1) = ddates(2) - 8
sDates(1) = Format(ddates(1), "mm/dd/yy")
sDates(2) = Format(ddates(2), "mm/dd/yy")
Rows("1:1").AutoFilter Field:=1, Criteria1:="" & sDates(1), _
Operator:=xlAnd, Criteria2:="<" & sDates(2)
End Sub


--
mudraker
------------------------------------------------------------------------
mudraker's Profile: http://www.excelforum.com/member.php...fo&userid=2473
View this thread: http://www.excelforum.com/showthread...hreadid=542867