PDF Name um Zelleninhalt ergänzen

Sub PDF_per_EMailFinanzamtbescheinigung()
' ** Dimensionierung der Variablen
Dim strPDF As String
' ** PDF erzeugen
strPDF = Environ("temp") & "\Finanzamtbescheinigung.pdf"
ThisWorkbook.Sheets("Finanzamtbescheinigung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strPDF, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
' ** E-Mail versenden
With CreateObject("Outlook.Application").CreateItem(0)
.GetInspector
.To = Range("L15").Value
.bcc = "aktivleben@dela.de"
.Subject = "Finanzamtbescheinigung"
.body = "Hallo lieber Kunde." & vbCrLf & vbCrLf _
& "Wie besprochen erhalten Sie nun die gewünschte Finanzamtmeldung per PDF." & vbCrLf _
& "PDF-Formular als Anlage anbei." & vbCrLf & vbCrLf _
& "Bei Rückfragen stehen wir Ihnen gerne zur Verfügung." _
& vbCrLf & "" & vbCrLf & .body
.Attachments.Add strPDF
.Display
' .Send 'Damit wird die E-Mail sofort versendet
End With
'.Kill strPDF           ' PDF-Datei wieder löschen
End Sub