I have a spreadsheet with seven tables (tbl_1, tbl_2, ..., tbl_7) each controlled by its own slicer. Each slicer has six buttons (10, 20, 30, 40, 50, 60) referring to Team Codes. I use the code below to select one team on every slicer, then create a PDF for each team / slicer setting. As of now, the code takes anywhere from 5-7min to run.Sub SlicerTeam()Dim wb As WorkbookDim sc As SlicerCacheDim si As SlicerItemOn Error GoTo errHandlerApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseSet wb = ThisWorkbookFor x = 1 To 6    For i = 1 To 7    Set sc = wb.SlicerCaches(tbl_ & i)        sc.ClearAllFilters        For Each si In sc.VisibleSlicerItems            Set si = sc.SlicerItems(si.Name)                If Not si Is Nothing Then                    If si.Name = x * 10 Then                        si.Selected = True                    Else                        si.Selected = False                    End If                Else                    si.Selected = False                End If        Next si    Next iCall PDFCreateNext xexitHandler:Application.ScreenUpdating = TrueApplication.EnableEvents = TrueExit SuberrHandler:MsgBox (Error in updating slicer filters.)Resume exitHandlerEnd SubSub PDFCreate()Dim Fname As StringDim path As Stringpath = S:\MyFilePath\Fname = path & Sheets(Detail).Range(T1).Value &  -  & [TEXT('Population Detail'!B1,mmm, yyyy)] & .pdf    Sheets(Detail).ExportAsFixedFormat Type:=xlTypePDF, _        FileName:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, _        IgnorePrintAreas:=False, OpenAfterPublish:=FalseEnd Sub
Iterate through slicer settings and print to PDF
vba;excel