Как связать цикл VBA do с слайсером в Excel?

Question

Sub PDFALL()

    Dim myWB As Excel.Workbook
    Dim Number As Long
    Dim Num2 As Long
    Dim ProvGroup As String
    Dim PPG As String
    Dim newSheet As Excel.Worksheet        

    Number = 43

    Do Until Number = 96

        Set myWB = ActiveWorkbook
        myWB.Sheets("Dashboard").Range("R" & Number).Copy
        myWB.Sheets("Dashboard").Range("B1").PasteSpecial
        ProvGroup = myWB.Sheets("Dashboard").Range("R" & Number).Value
        Num2 = myWB.Sheets("Dashboard").Range("T" & Number).Value
        ActiveWorkbook.SlicerCaches("Slicer_NETWORK").VisibleSlicerItemsList = Array( _
        "[FINAL_ updated].[NETWORK].&[]")
        Sheets(Array("Cover Page", "Executive Summary", "Accrued Summary Metrics", "YoY Accrued Summary Metrics", "Combined", "Clinical Dashboard", "Clinical Summary Table")).Select
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="File Directory" & ProvGroup

        Number = Number + 1

        Set myWB = Nothing           
    Loop
End Sub