Looping through all slicers in an Excel workbook and manipulating slicer settings

This works:

Sub AdjustSlicerSettings()

Dim SC As SlicerCache
Dim pt As PivotTable
Dim ws As Worksheet

'Adjusts slicer settings
For Each SC In ActiveWorkbook.SlicerCaches
    SC.ShowAllItems = False
Next SC

' updates all pivot tables to see effect of changed slicer settings.
For Each ws In ActiveWorkbook.Worksheets

    For Each pt In ws.PivotTables

    pt.RefreshTable

    Next pt

Next ws

End Sub