I'm trying to update 9 pivot table filters with a command button. I''ve tried many different ways, but this is the simplest solution I could think of. Any idea why this is not working or is there a better way?

With ActiveSheet.PivotTables("PivotTable1").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable2").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable3").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable5").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable8").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable9").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable10").PivotFields("Category")
With ActiveSheet.PivotTables("PivotTable113").PivotFields("Category")

.PivotItems("REFRIGERATOR ").Visible = True
.PivotItems("RANGE ").Visible = False
.PivotItems("AIR CONDITIONER ").Visible = False
.PivotItems("DISHWASHER ").Visible = False
.PivotItems("DRYER ").Visible = False
.PivotItems("GLOBAL PRODUCTS ").Visible = False
.PivotItems("LAUNDRY CENTRE ").Visible = False
.PivotItems("MICROWAVE ").Visible = False
.PivotItems("RANGE HOOD ").Visible = False
.PivotItems("SERVICE PARTS ").Visible = False
.PivotItems("WASHER ").Visible = False
.PivotItems("(blank)").Visible = False
End With
End With
End With
End With
End With
End With
End With
End With
End With