Dim pt As PivotTable, pf As PivotField, pi As PivotItem
Application.ScreenUpdating = False
For Each pt In ActiveSheet.PivotTables
pt.ManualUpdate = True
For Each pf In pt.PivotFields
For Each pi In pf.PivotItems
pi.Visible = True
Next pi
Next pf
pt.ManualUpdate = False
Next pt
Application.ScreenUpdating = True
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Stitch Type")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Operation Name")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("SPI")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("TOT Seam Length (Cm)")
.PivotItems("#VALUE!").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("QUALITY")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("COUNT / PLY")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Tex")
.PivotItems("").Visible = False
.PivotItems("(blank)").Visible = False
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("COLOR")
.PivotItems("0").Visible = False
.PivotItems("(blank)").Visible = False
End With
End Sub