DeleteAllSlicersFromWorkbook

Public Function DeleteAllSlicersFromWorkbook( _
    wb As Workbook _
)
    Dim _
        ws As Worksheet, _
        shp As Shape
    For Each ws In wb.Sheets
        For Each shp In ws.Shapes
            If shp.Type = msoSlicer Then shp.Delete
        Next shp
    Next ws
End Function