Boa tarde Galera,

onde é que estou errando na programação abaixo?

eu quero digitar a data em uma célula, e automaticamente efetuar o filtro das tabelas dinamicas
tabela dinâmica 1,2 e 4

Sub filtrar_data()

Dim DataInicial As String

DataInicial = Range("C1").Text
    
    Dim Tabela As PivotTable
            
    Set Tabela = ActiveSheet.PivotTables("Tabela dinâmica1")
    
    Tabela.ClearAllFilters
        
    Tabela.PivotFields("DATA").PivotFilters.Add Type:=xlDate, Value:=DataInicial
    
End Sub

Editado por Adalberto: Ao postar código VBA use a ferramenta Code e não Quote que é para citação.