Trying to Shorten/Simplify some Code to Make it Easier to Apply To Other Workbooks

Hello everyone. Trying to find some help. Theattached workbook has slicers. A contributor from another forum came up with a solution that allows me to hide the irrelevant ones when not in use by treating them as shapes. It works greatfor THIS workbook, but is difficult for me to apply to OTHER workbooks that haveadditional slicers due to my limited VBA knowledge.Wondering if there's a way to simplify it.Thanks everyone for your help.Let me know if anything further is needed.

Maybe this

Code:

---

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim shp As Shape
Dim shpName As String
   
    With Me
   
        For Each shp In .Shapes
   
            shpName = shp.Name
            If shp.Type = msoSlicer Then _
                shp.Visible = Not .Parent.SlicerCaches("Slicer_" & shp.Name).SlicerItems.Item(1).Value = "N/A"
        Next shp
    End With
End Sub

---