PivotTable

[charlee63]

Is there an easier way to Remove all checks on a pivotTable except the first one. This what I have but takes to long. PivotTable could be up to 7000 items.

Sub specificItemsField()
 Dim i As Long
    Application.ScreenUpdating = False
    Application.Calculation = xlManual
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Ad Group Number")
        For i = 2 To .PivotItems.Count
            .PivotItems(i).Visible = False
        Next
    .PivotItems(1).Visible = True
    End With
    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
End Sub