Actualizar 2 Tablas Dinámicas

hola, David !

Tengo 2 tablas dinamicas que cojen los datos de un CUBO OLAP de ACCESS
desearia que al cambiar un campo de una de las tablas dinamicas, el campo de la otra tabla se me cambiara tambien.
Utilizo el siguiente codigo
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
Sheets("TOTAL").PivotTables("Tabla dinamica3").PivotFields("PrimeroDeRegion").CurrentPage = _
Sheets("Hoja1").PivotTables("Tabla dinamica2").PivotFields("PrimeroDeRegion").CurrentPage.Value
[...]
Pero no me funciona, pq creo yo que las tablas tienen los datos en un Cubo Olap de ACCESS...

1) el codigo que expones 'supone' la existencia de una TD en la hoja 'total' que se llama -> 'tabla dinamica3'
-> es decir, que en esa hoja existe [o existieron] OTRAS DOS TD anteriores -?-

2) el mismo 'supuesto' aplica al nombre de la TD en la hoja 'hoja1' -?-

3) el tercer 'supuesto' que utiliza este codigo, es que el pivotfield -> 'PrimeroDeRegion' -> ES un campo de pagina -?-
[y que se encuentra como campo de pagina en ambas tablas dinamicas en las distintas hojas] -?-

4) las preguntas serian:
a) por que usas el evento '_selectionchange' ?
b) en el modulo de cual hoja lo tienes ?
c) ya que estas 'ajustando' el de la hoja 'total' segun la seleccion de campo de pagina en 'hoja1'...
piensas considerar otras variantes ? [como a la inversa... o 'siempre no'... o ???]

comentas [si hubiera] algun detalle adicional ?
saludos,
hector.