My new Outlook stops here

[Dasiek91]

Hi,

Could please help me with this problem. I have new outlook and my VBA stops at this moment.

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

[Aussiebear]

Welcome to VBAX Dasiek91. Hopefully someone will be along shortly to assist you 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