VBA: Atualizar planilha Dinamica de acordo com uma lista

[difaborges]

Prezados, boa tarde.

Tenho uma planilha do excel e preciso atualizar varias planilhas dinamicas de acordo com um dado selecionado em uma lista. Criei a macro abaixo, mas aparece um erro "1004 - Não é possivel obter a propriedade PivotTables da classe Worksheet."

Segue a macro. Obrigado pela informação.

//Lista

If Plan12.Cells(9, 4) = "Todas" Or Plan12.Cells(9, 4) = Plan9.Cells(i, 7) Then

//Planilha Dinamica a ser aualizada de acordo com o valor selecionado na lista acima

ActiveSheet.PivotTables("Total de Demandas Carteira").PivotFields( _

"SUPERINT_SOLICIT").ClearAllFilters

ActiveSheet.PivotTables("Total de Demandas Carteira").PivotFields( _

"SUPERINT_SOLICIT").CurrentPage = "(Tudo)"

End If