Hello,

I have a VBA script that send the emails out to the group of people different sheets. What I would like to do is to send one pivot table that is slicer filtered.

How do I insert the slicer code into the loop so it selects and deselects right filters?

Sub send_updates()

    Dim wb As Workbook
    Dim DSPc, ORP As Worksheet

    Set wb = Workbooks("ORP_tracker.xlsm")
    Set DSPc = Workbooks("ORP_tracker.xlsm").Worksheets("DSP contacts")
    Set ORP = Workbooks("ORP_tracker.xlsm").Worksheets("ORP")

On Error Resume Next
    sn = DSPc.Cells(1).CurrentRegion.Value
    For i = 2 To UBound(sn)
        wb.EnvelopeVisible = True
        Set Sendrng = wb.Worksheets(sn(i, 1)).Range("A1:K100")
        With Sendrng
            .Parent.Select
            With .Parent.MailEnvelope
                '.Introduction = sn(i, 4)
                With .Item
                    .to = sn(i, 2)
                    '.CC = sn(i, 3)
                    .Subject = sn(i, 4)
                    .Intro = sn(i, 5)
                    .Send
                End With
            End With
        End With
    Next

ORP.Select

End Sub
Sub Macro2()

    With ActiveWorkbook.SlicerCaches("Slicer_DSP")
        .SlicerItems("FULL").Selected = True
        .SlicerItems("DTTD").Selected = False
        .SlicerItems("FDTL").Selected = False
        .SlicerItems("GSSL").Selected = False
        .SlicerItems("MCHL").Selected = False
        .SlicerItems("NGC").Selected = False
        .SlicerItems("PCSL").Selected = False
        .SlicerItems("UKED").Selected = False
        .SlicerItems("WCDL").Selected = False
    End With

    'ActiveWorkbook.SlicerCaches("Slicer_DSP").ClearManualFilter
End Sub