Atualize todas as suas Tabelas Dinâmicas assim que abrir a planilha.
Sub AllWorkbookPivots()Dim pt As pivotTableDim ws As WorksheetFor Each ws In ActiveWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws