Lass es einfach vom Nutzer auswählen:

Option Explicit 'Variablendeklaration erzwingen

Sub PDF()
'
' PDF Makro
'

'
  Const C_ROOT = "C:\Users\Benutzer\Desktop\Ergebnisse\"
  
  On Error GoTo ErrHandler
  
  Dim wks As Excel.Worksheet
  Dim strFilename As String
  Dim vntVisiblePrev As Variant
  
  Set wks = Worksheets("Auswertung PDF")
  
  With Application.FileDialog(msoFileDialogFolderPicker)
    
    .Title = "Speicherort für PDF-Datei auswählen ..."
    
    .InitialView = msoFileDialogViewList
    .InitialFileName = C_ROOT
    
    Call .Show
    
    If .SelectedItems.Count > 0 Then
      
      'Hat der Nutzer hat den Pfad verlassen?
      If 0 <> StrComp(Left$(.SelectedItems(1), Len(C_ROOT)), C_ROOT, vbTextCompare) Then
        Stop
        '<reagiere irgendwie darauf>
        Exit Sub
      End If
      
      'der vom Nutzer ausgewählte Pfad
      strFilename = .SelectedItems(1) & "\"
      
      'Achtung:
      ' Hier wird nur geprüft ob die Zelle einen Inhalt hat.
      ' Es wird nicht geprüft ob er auch gültig ist!
      If Trim$(wks.Range("B5")) = "" Then
        Call MsgBox("In '" & wks.Name & "!B5' wurde kein Dateiname festgelegt.", _
                    vbExclamation)
        Exit Sub
      End If
      
      'den Pfad um den Dateinamen ergänzen
      strFilename = strFilename & Trim$(wks.Range("B5").Text) & ".pdf"
      
      'Bem.:
      ' Zum Exportieren muss das Blatt sichtbar sein
      
      vntVisiblePrev = wks.Visible '< aktuelle Einstellung merken
      wks.Visible = xlSheetVisible '< Blatt sichtbar machen
      
      Call wks.ExportAsFixedFormat( _
              Type:=xlTypePDF, _
              Filename:=strFilename, _
              Quality:=xlQualityStandard, _
              IncludeDocProperties:=True, _
              IgnorePrintAreas:=False, _
              OpenAfterPublish:=True)
      
      wks.Visible = vntVisiblePrev '< alte Einstellung wiederherstellen
      
    End If
    
  End With
  
  Exit Sub
ErrHandler:
  Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.Number)
End Sub

Gruß