Ocultar todos los PivotItem de una TD

Buenas noches, muchachos!!! ; ))

Tengo una duda, observe esta macro en la pagna de:
http://www.contextures.com/xlPivot03.html

Sin embargo a mi me interesaria cambiarle algo al codigo, para que oculte
todos los campos de una tabla dinamica y a partir de ahi, ya mostrar uno por
uno y ejecutar las acciones que quiero. El problema ahora es que no se que
cambiarle para que pueda hacer esto

Sub HidePivotItemsVisible()
'hide all pivot items in all tables on sheet
'except last item
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next
For Each pt In ActiveSheet.PivotTables
For Each pf In pt.RowFields
pf.AutoSort xlManual, pf.SourceName
For Each pi In pf.PivotItems
pi.Visible = False
Next
Next
pf.AutoSort xlAscending, pf.SourceName
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
Oscar
Saludos desde México