Problema con tabla dinamica y VBA

Hola a todos,
Tengo un problema que me está volviendo loco.
Mediante una macro necesito seleccionar ciertos valores de un campo de una
tabla dinámica y lo hago así:

With ActiveSheet.PivotTables("DinPL").PivotFields("RAIZ")
.PivotItems("621").Visible = True
End With

éste código lo ha generado automáticamente el editor de VBA, grabando la
macro.
Pero cuando la ejecuto me da un error:
Error 1004. No se puede asignar la propiedad Visible de la clase

Sé que el error no es porque esté visible (marcado) y trate de marcarlo

vez, ya que lo ejecuto después de desmarcarlo manualmente.
¿Puede ser que me falte registrar alguna librería?
Ayudadme por favor, me estoy volviendo loco.
Gracias por adelantado