Hallo ich möchte mit meinem Makro folgende Aktion durchführen

in der Tabelle (hier Tabelle1) einen Bereich markieren in einen PDF Anhang umwandeln und als Anlage an eine Email Adresse hier (Tabelle1 G1) versenden und zum Register wieder zurück. Habe folgendes Makro aus dem Netz gezogen / und grandios gescheitert. Hoffe auf Eure Hilfe:

Sub sendMail()
Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\testPDF.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False
mePDFD = ThisWorkbook.Path & "\testPDF.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = Sheets("Tabelle1").Range("G1")
.Subject = Sheets("Tabelle1").Range("G3")
.body = ""
.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing
End Sub