My new Outlook stops here

Hi,

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

Code:

---

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

---

Welcome to VBAX Dasiek91. Hopefully someone will be along shortly to assist you here.

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

Code:

---

Option Explicit

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

---