Neues Blatt mit Namen

ich möchte aus einer Mappe mit 4 Tabellen die aktuelle Mappe
die 1.) per Email versenden, dazu wird sie zunächst mit
" ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy "
Leider hat die Kopie dann einen Namen wie "Mappe1",
sollte aber einen Namen haben der z.B. in Zelle C12
des Orginals steht. Wie kann ich dem aktuellen Blatt
einen Namen zuweisen?

hier das komplette Script:

Sub Email()
Dim e As String
Dim t As String

ActiveWorkbook.Worksheets(ActiveSheet.Name).Copy
' e + t wird eigentlich aus der Tabelle ausgelesen
e = "Adresse"
t = "mailname"
Application.Dialogs(xlDialogSendMail).Show e, t
ActiveWorkbook.Close savechanges:=False
End Sub

Danke für Eure Tipps,

Bernhard