Hallo Excel Experten

Ich habe einen Code der mir mein Tabellenblatt als Email sendet, funktioniert soweit.
Meine Frage ist ob es möglich ist den Code so umzuschreiben das der Betreff:(im Moment ist er "Spielplan") vom Blatt übernommen wird?
In K5 und in X5 stehen Namen, und diese Namen sollten in der Mail die Betreffzeile sein.
Vielleicht könnt ihr mir ja helfen.

Hier mein Code

Sub sendMail111()



Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\Spielplan.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False

mePDFD = ThisWorkbook.Path & "\Spielplan.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "max.mustermann@muster.at"
.Subject = "Spielplan" 'Betreffzeile
.body = "Anbei das Excel Dokument als PDF." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen" & vbCr _
& vbCr _
& "Max"

.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub