Loop i excel 2010 (udsnitsværktøj/slicerj)

Jeg har fundet og tilpasset nedenstående script, som jeg bruger til at danne en PDF fil, som så bliver vedhæftet en ny email i outlook.

Scriptet bruges på en rapport, som primært er bygget op via pivoter. Tilknyttet disse pivoter har jeg et udsnitsværktøj/slicer hvor jeg kan vælge for hvilken enhed jeg ønsker at se rapporten. Her kunne jeg dog godt tænke mig at loope scriptet, så den kører samtlige poster i min slicer igennem, og altså laver en PDF rapport for hver valgmulighed.

Er der nogen som kan hjælpe med dette?


Sub RDB_Worksheet_Or_Worksheets_To_PDF_And_Create_Mail()
    Dim FileName As String

    If ActiveWindow.SelectedSheets.Count > 1 Then
        MsgBox "There is more then one sheet selected," & vbNewLine & _
              "be aware that every selected sheet will be published"
    End If

    'Call the function with the correct arguments
    'Tip: You can also use Sheets("Sheet3") instead of ActiveSheet in the code(sheet not have to be active then)
    'FileName = RDB_Create_PDF(ActiveSheet, "", True, False)

    'For a fixed file name and overwrite it each time you run the macro use
    FileName = RDB_Create_PDF(ActiveSheet, "c:\pdf_temp\rapport.pdf", True, False)

    If FileName <> "" Then
        RDB_Mail_PDF_Outlook FileName, ActiveSheet.Range("A1").Value, "Emne", _
                            "Se vedhæftet PDF" _
                          & vbNewLine & vbNewLine & "", False
    Else
        MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _
              "Microsoft Add-in is not installed" & vbNewLine & _
              "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _
              "The path to Save the file in arg 2 is not correct" & vbNewLine & _
              "You didn't want to overwrite the existing PDF if it exist"
    End If
End Sub