or…
Sub ClearMySlicers()
Dim Slcr, itm, pt, pfnm
Application.ScreenUpdating = False
Set pt = Sheets("BuildMyBOM").PivotTables(1)
pt.ManualUpdate = True
Application.EnableEvents = False
For Each Slcr In pt.Slicers
Slcr.SlicerCache.ClearManualFilter
Slcr.Shape.Visible = True
Next
pt.ManualUpdate = False
For Each pfnm In Array("QTY", "UOM", "Material", "Item Number")
pt.PivotFields(pfnm).DataRange.HorizontalAlignment = xlCenter
Next pfnm
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub