Actualizar tabla dinámica de manera automática en Excel

Normalmente para actualizar una tabla dinámica en Excel nos dirigimos por la ruta: Datos/Conexiones/Actualizar todo.

Sin embargo lo podemos hacer de forma automática ejecutando un código dentro de la hoja donde se encuentra la tabla dinámica que queremos actualizar.

El código es el siguiente:

Private Sub worksheet_activate()

ActiveSheet.PivotTables("TablaDinámica1").PivotCache.Refresh

End Sub

Guardamos el archivo como Excel Habilitado para Macros y ahora en adelante se actualizará la tabla dinámica cuando se seleccione la hoja donde se encuentra insertada.