Visual Basic i Excel

Hej

Kan inte klura ut hur jag kan bifoga filer i excel och skicka genom outlook. Alltså skicka Excel filen och 1 till fil.

EX

With ActiveWorkbook
.Sheets(1).Select
SendFile = Application.GetOpenFilename(Title:="Select MS Word " & _
"file to mail, then click 'Open'", buttontext:="Send", _
MultiSelect:=False)
GetObject (SendFile)

.SendMail Recipients:="Mail@mail.se", _
Subject:="Hej på dig" & Format(Date, "dd/mmm/yy")
End With

Denna skickar bara Excel filen.
Har oxå lyckats att den skickar bifogade filen