'отправка раб. листа по электронной почте
Sub SendSheet(ws As Worksheet, Address As String, Subject As String)
    ActiveSheet.Copy
        ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name & " " & Format(Now, "h-mm-ss"), xlWorkbookNormal
            ActiveWorkbook.SendMail Address, Subject
                ActiveWorkbook.ChangeFileAccess xlReadOnly
            Kill ActiveWorkbook.FullName
        ActiveWorkbook.Close False
End Sub

Sub DemoSendSheet()
    SendSheet ActiveSheet, "your_email@address", "test message"
End Sub