Visible=False Pivot Table Macro 1

[Tdharris]

I am using Microsoft 2010

Thanks,
TDH

TDH
Business App System Analyst
Information Technology

 

[Andrzejek]

You may want to check if this .PivotItems exist, or ignore the error and Resume Next:

[tt]
[blue]On Error Resume Next[/blue]

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Url")
.PivotItems("_catalogs/masterpage").Visible = False
.PivotItems("_catalogs/masterpage/Editing Menu").Visible = False
.PivotItems("_catalogs/masterpage/Editing Menu/CustomSiteAction.xml").Visible = False
End With
[blue]
On Error GoTo 0[/blue]
[/tt]

Have fun.

---- Andy

 

[Tdharris]

Thanks Andy! It worked PERFECTLY!



TDH
Business App System Analyst
Information Technology