'Отправка заданного диапазона почтой
Sub Send_Mail(Address As String)
    
    Dim AWorksheet As Worksheet
    Dim sndRange As Range
    Dim rng As Range
        
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    Set sndRange = Range(Address)
    Set AWorksheet = ActiveSheet
    
    With sndRange
        
        .Parent.Select
        Set rng = ActiveCell
        
        .Select
                
        ActiveWorkbook.EnvelopeVisible = True
        With .Parent.MailEnvelope
            .Introduction = "Тема письма"
            With .Item
                .To = "user@server.ru"
                .CC = ""
                .BCC = ""
                .Subject = "Таблица с оформлением"
                .Send
            End With
        End With
           
        rng.Select
           
    End With
    
    AWorksheet.Select
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
    ActiveWorkbook.EnvelopeVisible = False
    
End Sub