My new Outlook stops here

[Logit]

Using just the code you've provided in your post ... it functions as expected here.

Option Explicit

Sub Mail()
ActiveSheet.Range("A1:D44").Select
ActiveWorkbook.EnvelopeVisible = True '- STOPS HERE!
   With ActiveSheet.MailEnvelope
   End With
End Sub