Macro Actualizar Tablas Dinámicas

Sub actualizarTD()
'Declaramos variables
    Dim Hoja As Worksheet
    Dim TD As PivotTable
    '
    'Recorremos cada hojas del archivo
    For Each Hoja In ActiveWorkbook.Sheets
        'Recorremos cada TD de cada hoja
        For Each TD In Hoja.PivotTables
            'Actualizar cada TD
            TD.RefreshTable
        Next TD
    Next Hoja
    MsgBox "Datos Actualizados " & vbNewLine & "Ahora seleccione el ícono de <REPORTE> para visualizar.", vbInformation, "Excel Consultor"

End Sub