ActiveWindow.EnvelopeVisible = True

Hej alle

Følgende VBA kode er fungeret fint indtil for nylig

Sub Send_Range()

  ActiveSheet.Range("C12:J40").Select

  ActiveWorkbook.EnvelopeVisible = True


  With ActiveSheet.MailEnvelope

      .Item.To = ActiveSheet.Range("C10").Value
      .Item.Subject = ActiveSheet.Range("C23").Value
      ActiveSheet.Range("J17").Select
      .Item.Attachments.Add ("C:\Duge\" & Cells(ActiveCell.Row, "J") & ".txt")
 
  End With
End Sub

Nu får jeg en debug på "ActiveWorkbook.EnvelopeVisible = True" og når jeg placere curser over linjen skriver den "ActiveWorkbook.EnvelopeVisible = False"
Jeg tror selv det er et tilføjelses program der mangler, men hvorfor, det har fungeret upåklageligt i over 1 år

Håber på hurtig hjælp da det er et ark der bliver brugt meget

MVH
Ups