Ofimática - Referencias Tablas Dinámicas

Hola, tengo un problema con las referencias de VBA en excel (eso creo), ya que no me funciona la sig. orden (dice que no puede asignar la propiedad visible a la clase PivotItem):
With ActiveSheet.PivotTables(\"TabDiv\").PivotFields(\"MES\")
.PivotItems(\"01\").Visible = False
.PivotItems(\"02\").Visible = True
End With
¿Podéis decirme qué referencia hace falta y cómo conseguirla?

Gracias