Filter fail

[Dr. Demento]

Can anyone tell me why this bit of code keeps stopping my sub? I have error handling (debug.print err.number/.description) but it doesn't throw any errors There are no erroneous dates, missing dates, or anything like that. It actually filters the column but then it quits!

dim dt as date
    dt = (Date - (Weekday(Date, vbSunday) - 1))

   tbl.Range.AutoFilter Field:=6, _
                      Operator:=xlFilterValues, _
                      Criteria1:=">=" & DateSerial(Year(dt), 1, 1), _
                      Operator:=xlAnd, _
                      Criteria2:="<=" & dt

I have no idea!! Thanks y'all.

 

[RoryA]

You can't have two Operator arguments, and the first one doesn't make sense anyway, so remove it.

 

[C Moore]

It looks like you formatted Criteria1 different from Criteria2.

 

[Dr. Demento]

Well Rory . . .


Thank you!!

C Moore - the formats aren't meant to be different, one is just for 01 Jan and the other for the nearest Sunday. Appreciate the time.