Repetir para cada elemento de .PivotItems

hola, 'anonimo/a' !

... grabo una macro para... una tabla dinamica y me sale algo como esto:
With ActiveSheet.PivotTables("Tabla dinamica1").PivotFields("Vendedor")
.PivotItems("Nombre Vendedor").Visible = False
...
...
End with
... como hago para repetir el resultado TRUE or FALSE (dependiendo)
para cada elemento .PivotItems ya que estos varian en cantidad...

op1: si necesitas mantener el codigo usando los nombres de los .PivotItems...
sigue tal cual lo ha generado la grabadora (solo complementa los puntos suspensivos)

op2: otra alternativa (de entre algunas posibilidades, y tambien dependiendo de lo que no se conozca)...
Dim Elemento As PivotItem
For Each Elemento In ActiveSheet.PivotTables("Tabla dinamica1").PivotFields("Vendedor").PivotItems
Elemento.Visible = True ' o False ?... (dependiendo de lo que deba depender) '
Next

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.