Tanner_2004
Well-known Member
- Joined
- Jun 1, 2010
- Messages
- 616
Is there a way to edit this code so that I it runs on the active sheet which is store the pivot table?
Thank you for reading and any help.
Thank you for reading and any help.
Code:
[COLOR=#000000][FONT="][B]Sub PivotTableFilter10()[/B][/FONT][/COLOR]
[COLOR=#000000][FONT="]
Dim PvtTbl As PivotTable
Set PvtTbl = Worksheets("Sheet1").PivotTables("PivotTable1")
PvtTbl.PivotFields("Region").PivotItems("Europe").Visible = True[/FONT][/COLOR]
[COLOR=#000000][FONT="]
[B]End Sub[/B][/FONT][/COLOR]