Exceldatei speichern und versenden

Hallo,

ich möchte eine Exceldatei (Arbeitsblatt) per Makro abspeichern und per Outlook als Exceldatei versenden.
Habe hier einen Code bei dem mir allerdings der Debugger angezeigt wird.

Wer kann sich den code ansehen und mir helfen wie ich diesen zu verändern habe, damit mir die Exceldatei abgespeichert wird und gleichzeitig das genannte Tabellenblatt per Mail versendet wird.

Code und Exceldatei anbei.

https://www.herber.de/bbs/user/158436.xlsm


Sub Versand()

Dim DateinameA As String
DateinameA = Range("J1") & "Soundso" & Range("J3") & ".xlsx"
Sheets("Soundso").Copy
With ActiveWorkbook
.SaveAs Filename:=DateinameA
.Close
End With

Dim Outlook As Object
Dim outlookmailitem As Object
Dim myAttachments As Object

Set OutlookApp = CreateObject("outlook.application")
Set outlookmailitem = OutlookApp.CreateItem(0)
Set myAttachments = outlookmailitem.Attachments

With outlookmailitem
.To = Range("J5")
.Subject = Range("J3")
.Body = Range("J7")
.Attachment.Add DateinameA
.Display
End With

Set outllokapp = Nothing
Set outlookmailitem = Nothing

End Sub



Danke vorab.

Gruß Thomas