Toggle for ShowDetail in PivotTable

[josephteh]

I have created a simple macro to toggle show/hide detail, but it does not work:

ActiveSheet.PivotTables("Table1").PivotFields("Items").ShowDetail = Not ActiveSheet.PivotTables("Table1").PivotFields("Items").ShowDetail

Please help! Thanks in advance!

 

[josephteh]

I have created a simple macro to toggle show/hide detail, but it does not work:

ActiveSheet.PivotTables("Table1").PivotFields("Items").ShowDetail = Not ActiveSheet.PivotTables("Table1").PivotFields("Items").ShowDetail

Please help! Thanks in advance!

I am trying to follow the format for toggling fullscreen display as follows:

Application.DisplayFullScreen = Not Application.DisplayFullscreen

Thank you!