Toon alles in Draaitabel

[frankli]

Hi,

Ik wil graag alles tonen na het selecteren in de draaitabel, ik heb een code gemaakt, maar er is altijd een fout melding:
Fout 1004 tijdens uitvoering:
Eienshap Visible van klasse PivotItem kan niet worden ingesteld.

En de code is vanwege hier: pi.Visible = True
Mijn vba code is:

Sub Toonalles()
Application.ScreenUpdating = False
  Dim pf As PivotField
  Dim pi As PivotItem
      For Each pf In ActiveSheet.PivotTables(1).PivotFields
        For Each pi In pf.PivotItems
         [COLOR="Red"]pi.Visible = True[/COLOR]
        Next pi
      Next pf 
Exit Sub
Application.ScreenUpdating = True
End Sub