Visual Basic para Aplicaciones - PivotItems en Tabla Dinamicas

Hola,

Para una tabla dinámica en la que quiero calcular un dato mensual acumulado hago el siguiente filtrado de meses:

(ej; Abril)

With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("MES")

.PivotItems("0").Visible = True
.PivotItems("1").Visible = True
.PivotItems("2").Visible = True
.PivotItems("3").Visible = True
.PivotItems("4").Visible = True
.PivotItems("5").Visible = False
.PivotItems("6").Visible = False
.PivotItems("7").Visible = False
.PivotItems("8").Visible = False
.PivotItems("9").Visible = False
.PivotItems("10").Visible = False
.PivotItems("11").Visible = False
.PivotItems("12").Visible = False

End With

Con este código consigo obtener bien el resultado, pero como quiera que la Tabla Dinámica tiene como fuente de datos externos una tabla Access con millones de datos, hace que este proceso sea muy lento, ya que recalcula la Tabla Dinamica para cada PivotItem (12 veces). ¿Hay algún código que que fije todos los PivotItems que yo deseo al mismo tiempo?

Gracias

Jose