Problem mit Email

Sub mail()
Range("h1:k100").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "Test." & vbCrLf & "Text"
.Item.To = ""
.Item.Subject = "Die aktuellen Daten"
.Item.Display
End With
End Sub

Kopiere ich es aber in eine bestehende Arbeitsmappe mit mehreren Makros bekomme ich manchesmal dem Fehler Laufzeitfehler 1004
"Die Methode EnvelopeVisible für das Objekt Workbook ist fehlgeschlagen"
Kann mir jemand bitte weiterhelfen woran das liegen kann?
Danke