Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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