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