Лист во вложении через Excel

[Витальян]

Здравствуйте! Есть макрос:
Sub Отправить()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range

Application.ScreenUpdating = False
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
On Error GoTo cleanup
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To =
.Subject =
.Body =

.Send

End With

On Error GoTo 0
Set OutMail = Nothing

cleanup:
Set OutApp = Nothing
Application.ScreenUpdating = True
End Sub


Что дописать, чтоб вставлялся лист во вложении?
Заранее очень благодарен!

[IgorGO]

лист сам по себе отправить нельзя.
можете отправить файл.