Jeg har ikke lige adgang til en Excel2010 (benytter selv XL2003), men sådan lige ud af hovedet:

Sub ExcelToPDF()

' * ' Define variables
      Dim SuffixPoint As Long
      SuffixPoint = InStrRev(ActiveWorkbook.FullName, ".")
     
      Dim FileFullName As String
      If SuffixPoint = 0 Then
            FileFullName = ActiveWorkbook.FullName & ".PDF"
      Else
            FileFullName = Left(ActiveWorkbook.FullName, SuffixPoint - 1) & ".PDF"
      End If


' * ' Get file name
      FileFullName = Application.GetSaveAsFilename(InitialFileName:=FileFullName, FileFilter:="PDF Files (*.PDF), *.PDF")
      If FileFullName = "False" Then Exit Sub
 
 
' * ' Save as PDF
      ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=FileFullName, Quality:=xlQualityStandard, openAfterPublish:=True
 
End Sub


Prøv det

Det burde nu være rimelig let ae se, hvis man lige ofre et par minutter på at se på koden!

I linjen, hvor du skriver:
FileFullName = Application.GetSaveAsFilename...

...fremgår det jo meget klart og tydeligt, at det er her du henter filnavnet!

Så, alt, hvad du skal gøre, er at udskifte den linje med:

FileFullName = "F:\Hillerød\Reparationssedler - HI\" & Range("B1").Value & "-" & Range("B2").Value & "-" & Range("B3").Value & "-" & Range("B4").Value

Hvor er det bare fedt.

Kære kære kære Excelgaard!