Fil named after cell K9 and send by mail

[KlausW]

Hi everyone
I have a small challenge, I use this VBA code to send the file by email. It works well.
But I would like the file to be named after cell K9.
Can anyone help.
Any help would be appreciated.
Best regards
Klaus W

Sub Rektangelafrundedehjørner2_Klik()

Dim strPath As String
Dim OutlookApp As Object, OutlookMail As Object

On Error GoTo errHandler
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookMail = OutlookApp.CreateItem(0)
strPath = Replace(ThisWorkbook.FullName, ".xlsm", ".xlsx")
Application.DisplayAlerts = False
ThisWorkbook.SaveAs strPath, 51
Application.DisplayAlerts = True

With OutlookMail
    .To = Range("k1").Text
    .CC = ""
    .BCC = ""
    .Subject = Range("k9").Value
    .Body = Range("k2").Value
    .Attachments.Add strPath
    .Send
End With

exitHere:
Set OutlookMail = Nothing
Set OutlookApp = Nothing
Application.DisplayAlerts = True
Exit Sub

errHandler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume exitHere

End Sub

 

[Artik]

Try

strPath = ThisWorkbook.Path & "\" & Range("K9").Value & ".xlsx"

Artik

 

[KlausW]

Try

strPath = ThisWorkbook.Path & "\" & Range("K9").Value & ".xlsx"

Artik

Hi Artik, Thank you, just as it should be. Many greetings from Denmark Klaus W