Mail Problem

habe folgendes Makro:
Sub Email1()
ActiveWorkbook.SendMail Recipients:="Test@web.de", _
Subject:="aktive Tabelle" ' Betreffs Zeile
End Sub

Hierdurch wird meine gesammte Datei verschickt.
Ich möchte aber nur den Inhalt eines Tabellenblattes als Text verschicken.
Geht sowas?

Danke im voraus
Peter