Tabellenblatt per VBA versenden

[Phoeni]

Hallo Leute, 
ich hoffe ihr könnt mir helfen. Ich suche eine Möglichkeit um ein bestimmtes Tabellenblatt in pdf zu wandeln,
und dies dann per E-Mail zu versenden.
Ich habe diesen VBA Code im Netz gefunden, jedoch generiert der Code aus der Datei ein pdf und nicht wie ich es benötige
für das Tabellenblatt.
--

Code:

'** Dimensionierung der Variablen
Dim strPDF As String
Dim OutlookApp As Object, strEmail As Object

'** Vorgaben definieren
Set OutlookApp = CreateObject("Outlook.Application")
Set strEmail = OutlookApp.CreateItem(0)

'** PDF erzeugen
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
  ThisWorkbook.Path & "\Excel-File.pdf", Quality:=xlQualityStandard _
  , IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish _
  :=False

'** E-Mail versenden
strPDF = ThisWorkbook.Path & "\Excel-File.pdf"
With strEmail
  .To = "Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein."
  .Subject = "PDF als Anlage" 'Betreffzeile
  .body = "Als Anlage die PDF-Datei"
  .Attachments.Add strPDF
  .Display
  '.Send 'Damit wir die E-Mail sofort versendet
  Kill strPDF
End With
 
'** Objektvariablen wieder löschen
Set OutlookApp = Nothing
Set strEmail = Nothing
End Sub

könnt Ihr mir helfen?
Danke Gruß Phoeni

[MisterBurns]

Code:

ActiveSheet.ExportAsFixedFormat

[Phoeni]

Vielen Dank!