PivotItems

Hola

Me gustaria de automatizar la visualizacion de los itenes de um Pivot
El comando abajo me habilita por cada iten... Me gustataria hacer lo
mismo por el comando For Each

With ActiveSheet.PivotTables("tabCargas").PivotFields("TIPO_CARGA")
.PivotItems("PESAGEM AVULSA - ENTRADA (14)").Visible = True
.PivotItems("PESAGEM AVULSA - SAIDA (15)").Visible = True
.PivotItems("REMISION (4)").Visible = True
.PivotItems("REMISION (ORDEM TRANSF.) (2)").Visible = True
.PivotItems("REMISION DE TRANSFERENCIA (6)").Visible = True
.PivotItems("REMISION INTERNA (5)").Visible = True
.PivotItems("REMISION P/ CONTRATO (11)").Visible = True
.PivotItems("REMISION RETIRADA CLIENTE (3)").Visible = True
.PivotItems("ROMANEO (ORDEM TRANSF.) (1)").Visible = True
.PivotItems("ROMANEO INTERNO (8)").Visible = True
.PivotItems("ROMANEO RETIRADA COMPRADOR (16)").Visible = True
.PivotItems("ROMANEO TRANSF. (9)").Visible = True
End With

Me podrian ayudar...
Gracias



Daisuke