Makro anhalten

Sub mail()
Einblenden True
Range("h1:k100").Select
ActiveWorkbook.EnvelopeVisible = True
'Nun werden die Adressen vergeben
With ActiveSheet.MailEnvelope
.Introduction = "Muster." & vbCrLf & "Text"
.Item.To = ""
.Item.Subject = "Die aktuellen Daten"
.Item.Display
End With
End Sub

dananch will ich weitere Befehle reinschreiben.
Das Problem das Makro sollte erst fortgestzt werden wenn ich das Mail abgesendet habe.
Ist das irgenwie zu schaffen
Vielen Dank!!