Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Modifying Pivot Tables

Private Sub OptionButton1_Click()     Application.ScreenUpdating = False     With ActiveSheet.PivotTables(1).PivotFields("Month")         .PivotItems("Jan").Visible = True         .PivotItems("Q4").Visible = False     End With End Sub