Boa tarde, Estou tentando fazer uma macro para filtrar uma tabela dinâmica com data anterior ou igual a hoje.
Gravei a macro normalmente, mas quando olhei no vbe a data ficou como texto físico e não como código vba.
Já tentei trocar por date(), mas indica data inválida.
Alguém pode me ajudar?

Sub ATUALIZAR()
'
' ATUALIZAR Macro

    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
        ClearAllFilters
    ActiveSheet.PivotTables("Tabela dinâmica1").PivotFields("RETIRADA PREVISTA"). _
        PivotFilters.Add2 Type:=xlBeforeOrEqualTo, Value1:="23/02/2016", _
        WholeDayFilter:=True
End Sub