E-Mail Bereichsversand -funktioniert das?

Sub gefunden um einen best. Bereich mit Outlook
zu versenden.
Kann sich das mal jemand ansehen ob die Sache wirklich
funktioniert.
Danke Peter

Sub E_Mail()
'Zellbereich mit Outlook versenden
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim sAddress As String
sAddress = "P1"
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(sAddress)
.Subject = "Test E-Mail mit Excel"
.Body = ActiveSheet.Range("A1:D20")
.Importance = olImportanceHigh
.Send
objOutlookRecip.Resolve
End With
Set objOutlook = Nothing
End Sub