Visual Basic Erro em tempo de execução '1004':

[Irwing Seiji Ato]

Estou com esse erro aqui é não sei como consertar isso estou fazendo um trabalho no excel e preciso usar o visual basic só para atualizar a tabela dinâmica

Private Sub Worksheet_Activate()
    Worksheets(2).PivotTables("Tabela_Caixa").PivotCache.Refresh
    Worksheets(2).PivotTables("Tabela_Gastos").PivotCache.Refresh
End Sub

O código é esse, o código está no activate

[Edson Luiz Branco]

Bom dia, @Irwing Seiji Ato

 

É provável que esse erro esteja ocorrendo porque na Worksheet(2) não exista uma ou as duas TD's com esses nomes. Então ou os nomes estão errados ou elas estão em outra planilha (o que eu acho mais provável).

É para elas estarem na mesma planilha em que você tá usando a armadilha de eventos _Activate? Se sim, melhor se referir a ela própria com a palavra reservada Me  ao invés de Worksheets(2):

Private Sub Worksheet_Activate()
    Me.PivotTables("Tabela_Caixa").PivotCache.Refresh
    Me.PivotTables("Tabela_Gastos").PivotCache.Refresh
End Sub

PS: Penso que sua pergunta seria mais rapidamente respondida se postada na área dos Pacotes de Escritório - Office