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