¿Cómo desplegar tres tablas dinámicas simultáneamente?

Buenos días,

Tengo una hoja de excel en donde hay tres tablas dinámicas (Tabla1, Tabla2, Tabla3) con el mismo origen de datos, lo que pretendo hacer es que al desplegar uno de los items de la Tabla1 de desplieguen inmediatamente las otras dos tablas, logré hacerlo con unas tablas pequeñas, pero al hacerlo con tablas grandes arroja un error que no he logrado solucionar.

El error que sale es: (Se ha producido el error'1004' en tiemo de ejecución:
No se puede obtener la propiedad PivotItems de la clase PivoField.)

Adicionalmente, se demora mucho en hacer el despliegue.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim pt As PivotTable

Dim pf As PivotField

im pi As PivotItem

With Application

.ScreenUpdating = False

.EnableEvents = False

End With

For Each pf In ActiveSheet.PivotTables("Tabla2").PivotFields

For Each pi In pf.PivotItems

ActiveSheet.PivotTables("Tabla2").PivotFields(pf.Caption).PivotItems pi.Caption).ShowDetail = ActiveSheet.PivotTables("Tabla1").PivotFields(pf.Caption).PivotItems(pi.Caption).ShowDetail

ActiveSheet.PivotTables("tabla3").PivotFields(pf.Caption).PivotItems(pi.Caption).ShowDetail = ActiveSheet.PivotTables("Tabla1").PivotFields(pf.Caption).PivotItems(pi.Caption).ShowDetail

Next pi

Next pf

With Application

.ScreenUpdating = True

.EnableEvents = True

End With

End Sub

***********************

Gracias por su colaboración

Jackson