Guru do Excel e Power BI

Olá.

Gostaria de saber se existe uma possibilidade de alterar a referencia de uma tabela dinâmica via vba.
Ex. A tabela dinâmica deveria ter a referencia 'Apontamento - Manual'!$D:$J, mas esta com a referencia de '\Users\User\Downloads\[Apontamento e transferencias Cacique.xlsm]Apontamento - Manual'!$D:$J.
Gostaria de fazer alguma maneira de colocar uma macro para executar e colocar esta referencia nos dados da tabela dinâmica.
Eu tenho que fazer o compartilhamento da planilha que elaborei e ela sempre muda a referencia de alguma forma não ficando efetiva.

Desde já agradeço...

Bom dia veja se com esta macro resolve, necessita adaptar ao seu caso.

Depois de SourceData Inserir a referência pretendida.

Código: Selecionar todos

Sub Update_PTSource()
    With ActiveSheet
        .PivotTables(1).ChangePivotCache ActiveWorkbook. _
            PivotCaches.Create(SourceType:=xlDatabase, _
            SourceData:="'" & .Name & "'!PTsource")
    End With
End Sub

Alguma dúvida só dizer.

Boa tarde Afonso.
Obrigado pela dica, mas no meu caso não deu certo, deu erro de execução.

Sub Update_PTSource()
With ActiveSheet
.PivotTables("Tabela dinâmica4").ChangePivotCache ActiveWorkbook. _
PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:="'Apontamento - Manual'!$D:$J" & .Name & "'!PTsource")
End With
End Sub

Saberia me dizer o que é?
Desde já agradeço a disponibilidade

Guru do Excel e Power BI

Atualização de Referencia de Tabela Dinâmica

Atualização de Referencia de Tabela Dinâmica

Atualização de Referencia de Tabela Dinâmica

Atualização de Referencia de Tabela Dinâmica

Atualização de Referencia de Tabela Dinâmica