Export dat z excelu do emailu (Outlook) pomocou makra (VBA)

Dobry den.

Chcel by som vas poprosit o radu.
Mam excel subor a v nom tabulku a graf.
Toto by som chcel "vyexportovat" do noveho emailu.
V nom by sa automaticky zadali prijemcovia a definoval text.
Napr. "Dobry den.
Posielam vysledky.
Dakujem."
Toto vsetko by som chcel spravit cez tlacitko (VBA makro).
Prikladam kod na spodu.
Problem je v tom, ze ked otvorim excel subor, stlacim tlacitko tak mi vypise chybu a odkaze sa na tento riadok:
wEditor.Application.Selection.Paste
Ked to zrusim a spustim opat, tak uz to funguje.
Viete mi s tym poradit prosim?

Kod:
Sub Tlacidlo15_Kliknut()
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.display
.to = "prijemcovia"
.CC = ""
.BCC = ""
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Dakujem vopred za odpovede.
S pozdravom
Miroslav.