VBA - TIRAR PRINT SCREEN DA TELA E ABRIR E-MAIL

Sub EnviaEmail()
    Dim rng As Range
    Dim OutApp As Object
    Dim OutMail As Object
    
    Set Corpo = Nothing
    On Error Resume Next
    
    Corpo = [Ô] Seu texto [Ô] & TextBox1 & [Ô] - [Ô] & TextBox1 & vbNewLine
    Corpo = Corpo & [Ô] Nova linnha [Ô] & TextBox1
    
    Set OutApp = CreateObject([Ô]Outlook.Application[Ô])
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    On Error Resume Next
    With OutMail
    .To = [Ô]Email do destinatário[Ô]
    .cc = [Ô]Email CC[Ô]
    .BCC = [Ô][Ô]
    .Subject = [Ô]TÍTULO DA MENSAGEM[Ô]
    .HTMLBody = Corpo
    .Send [ô]or use .Display
    
    End With
    
    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Private Sub Workbook_Open()
    Set pastas = Application.Workbooks
    For Each pasta In pastas
        Guia = pasta.Name
        Windows(Guia).Visible = xlVeryHidden
    Next
    
   [ô]ou simplesmente assim  >>> Windows(NomedoExcel).Visible = false
    
   With ActiveWindow
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayHeadings = False
            .DisplayWorkbookTabs = False
            .DisplayGridlines = False
    End With
    With Application
            .DisplayFullScreen = True
            .DisplayFormulaBar = False
    End With
   
    UserForm1.Show
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Set pastas = Application.Workbooks
    For Each pasta In pastas
        Guia = pasta.Name
        Windows(Guia).Visible = True
    Next
    
   With ActiveWindow
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayHeadings = True
            .DisplayWorkbookTabs = True
            .DisplayGridlines = True
    End With
    With Application
            .DisplayFormulaBar = True
            .DisplayFullScreen = False
    End With
    
End Sub