Hi Sverre

I have done something similar on PDF version 5 and it works well. It
assumes you are using a data Validation list for your drop down. It
Loops through the list in cell B5 and prints to pdf. You will need to
adapt this to suit your problem.

Take care

Marcus

Sub ValListLoop()

Dim rng As Range, cell As Range
Dim mycells As String
Dim PDFFileName As String

Set rng = Evaluate(ActiveSheet.Range("B5").Validation.Formul a1)
For Each cell In rng
Application.Calculation = xlAutomatic 'turn calcs on
ActiveSheet.Range("B5").Value = cell.Value 'Change to suit
mycells = Range("B5").Value 'Change to suit
Sheets("Sheet1").Select 'Change to suit
Application.ActivePrinter = "Adobe PDF on Ne01:" 'Change path
Let PDFFileName = "C:\" & mycells & ".pdf" ' change to desktop
path
SendKeys PDFFileName & "{ENTER}", False
ActiveWindow.SelectedSheets.PrintOut copies:=1
SFileName = Chr(34) & PDFFileName & Chr(34)
Next
Application.Calculation = xlManual 'turn calcs off
End Sub