Cambiar origen de datos de múltiples tablas dinámicas con VBA

Una tarea bastante frecuente trabajando con tablas dinámicas es cambiar el origen de datos. La acción es bastante rápida para una sola tabla dinámica. En el caso de múltiples tablas dinámicas, el procedimiento se vuelve muy pesado. No es posible cambiar manualmente el origen de datos para varias tablas dinámicas simultáneamente. Sin embargo, podemos sortear esta limitación programáticamente:

1. Definimos un nombre (NuevoOrigen) para el rango de celdas que será el nuevo origen de datos.
2. Copiamos el siguiente código en un módulo. Nos aseguramos de que SourceData es igual al nombre definido.

Option Explicit
Sub Cambiar_Origen_Tbls_Dinamicas()
Dim n As Integer
Dim i As Integer
Dim pt As PivotTable
n = ActiveWorkbook.Worksheets.Count
    For i = 1 To n
        For Each pt In ActiveWorkbook.Worksheets(i).PivotTables
            pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
            (SourceType:=xlDatabase, SourceData:="NuevoOrigen")
        Next pt
    Next i
End Sub

En lugar de un nombre, podemos indicar un rango de celdas, p. ej.: SourceData:="Hoja1!$A$1:$M$1000"

 3. Ejecutamos el código anterior. El origen de datos habrá cambiado para todas las tablas dinámicas del libro.