Loop igennem dropdown liste og eksporter til PDF

Hej,

Jeg har nybegynder ift til VBA og arbejder med denne makro:

Sub PDFDropdown()
Const NamedRangeName = "Choices"
Const SheetName = "Beregningsark"
Const CellWithDropdown = "C3"
Const PrintRange = "A1:E50"
Const DefaultFolder = "C:\Test\PDF"
Dim fPath As String, choice As Range, fName As String

'allow user to select folder
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select destination folder for PDF export"
        .InitialFileName = DefaultFolder
        If .Show = -1 Then fPath = .SelectedItems(1)
    End With

'rest of code
    If fPath <> "" Then
        With Sheets(SheetName)
            For Each choice In Range(NamedRangeName)
                .Range(CellWithDropdown) = choice
                fName = choice & Format(Date, " yymmdd") & ".pdf"
                .Range(PrintRange).ExportAsFixedFormat Type:=xlTypePDF, Filename:=fPath & "\" & fName
            Next
        End With
    Else
        MsgBox "No folder selected"
    End If

End Sub

Den fungerer, men problemet er at den eksporterer arket 'Beregningsark'. Jeg vil gerne have den til at eksportere arkene  'Sheet1' og 'Sheet2'.
Dropdown listen er i 'Beregningsark', celle C3.

Jeg har brug for en makro, som vælger en mulighed i dropdown listen i 'Beregningsark' og eksporterer 'Sheet1' og 'Sheet2' til én PDF. Hvorefter den skal vælge den næste mulighed i listen og danne en ny pdf osv (en loop funktion).

Jeg har forsøgt mig lidt frem, men kan ikke få noget til at fungere. Kan I hjælpe? :-)