Excel - cambiar año en tablas dinámicas

Hola. Tengo unas cuantas tablas dinámicas que muestran datos según el año que elijas. Me gustaría que en vez de estar cambiando tabla por tabla el año esto se haga de forma automática. He pensado en usar una celda (ej:A1) para elegir el año y después en las celdas de la tabla dinámica escribir =A1 pero me dice que no se puede escribir una fórmula en una tabla dinámica. ¿Qué otras soluciones son posibles? ¿Macros? ¿Código? Un saludo

Perfectamente puedes hacerlo con una macro, o módulo, o código (que biene a ser lo mismo).
Tendría esta forma:

Activesheet.PivotTables("Tabla Dinámica1").PivotFields("Fecha").CurrentPage="2006"

el año lo puedes sustituir por una celda pej. Cells(1,1)

esto lo harías para cada una de las tablas o bien puedes declara una variable pivottable y hacer un bubcle for next por toda la colección de pivottables.

Un saludo