Servus zusammen, ich habe eine Kalkulationsdatei mit 2 Reitern.

Reiter 1 Name > Expert
Reiter 2 Name > Export

Die Daten die im Reiter Export sind sollen in einem neuen Tabellenblatt gespeichert werden (ohne das Steuerelement welches ich dafür nutze)
Und nach dem speichern soll direkt eine Mail versendet werden. Ich nutze aktuell 2 Schritte dafür

Makro 1 > Einzelblatt speichern (das Steuerelement wird leider mit gespeichert)
Makro 2 > Mail versand

Hier die beiden Codes:

Makro 1:

Sub EinzelnesBlattSpeichern()
Application.ScreenUpdating = False
On Error GoTo Fehler
ActiveSheet.Copy
Dim neuName As String
neuName = InputBox("Unter welchem Namen soll die Datei gespeichert werden?")
ActiveWorkbook.SaveAs Filename:="C:\Max\" & neuName & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
MsgBox " Die Datei wurde unter C:\Max\" & neuName & " gespeichert !", vbibformation
Application.ScreenUpdating = True
Exit Sub
Fehler: MsgBox "Fehler bei Datei speichern aufgetreten!"
End Sub

Makro 2:

Sub EmailManuellAbsenden()

Dim objOutlook As Object
Dim objMail As Object

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)

With objMail
.To = "info@web.de"
.Subject = "Auftrag "
.Body = "Hi SDL Auftrag, please book the order"
.Display 'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!
End With

' Display a custom message
MsgBox "SDL Auftrag export completed successfully!" & vbCr & vbCr & "Thank You", vbInformation

End Sub

Meine konkrete Frage. Wie kann ich das über EIN Makro machen?

> Also speichern ohne Steuerelement + neuen Name vergeben und dann direkt die neue Datei als Anhang per Mail versenden?

Vielleicht hat jemand eine Idee.. DANKE
VG Max