Repetir para cada elemento de .PivotItems

Estimados, grabo una macro para que efectue una tabla dinámica y me sale algo
como esto:
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Vendedor")
.PivotItems("Nombre Vendedor").Visible = False
...
...
End with
La consulta es, cómo hago para repetir el resultado TRUE or FALSE
(dependiendo)
para cada elemento .PivotItems ya que estos varían en cantidad.
Desde ya muchas gracias por su tiempo.
Un saludo.