Hallo
Ich habe hier einen funktionierenden Code der mir alle Blätter meiner Exceldatei als PDF speichert und per Mail sendet.

Wie muss ich den Code ändern dass nur ein Tabellenblatt gespeichert und gesendet wird, nicht alle Tabellenblätter.
Vielen Dank

Sub send_Mail()


Dim mePDFD As String
Dim MyOutApp As Object, MyMessage As Object

ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "Tabelle.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
:=False

mePDFD = ThisWorkbook.Path & "Tabelle.pdf"
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
.To = "muster.max@gmx.at; max.muster@gmx.at"
.Subject = "Tabelle" 'Betreffzeile
.body = "Anbei das Excel Dokument als PDF." & vbCr _
& vbCr _
& "Mit freundlichen Grüßen" & vbCr _
& vbCr _
& "User"

.Attachments.Add mePDFD
.Display
'.Send
Kill mePDFD
End With
Set MyOutApp = Nothing
Set MyMessage = Nothing

End Sub