Microsoft Office Forums - View Single Post

RudiS · 04-27-2014, 12:57 PM

I'm not sure if I understand correctly, but try something like this:

Code:

Sub FilterToday()
    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter Field:=2, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
        .AutoFilter Field:=3, Criteria1:=xlFilterToday, Operator:=xlFilterDynamic
    End With
End Sub