Filterkriterium in Name beim Speichern als PDF

Sub SpeichernPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & _
ActiveSheet.Range("B2").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub