Navngive ark ved afsendelse af e-mail

Jeg er ikke sikker du på du kan give det et navn, hvis du ikke gemmer filen. Derfor har jeg lavet følgende:

Sub SEND()
Dim TempFilePath As String
Dim TempFileName As String

Modtager = "xxxx@xxxx.com"
overskrift = ActiveSheet.Range("G6")
If Application.MailSystem <> xlNoMailSystem Then
  ActiveSheet.Copy
      With ActiveWorkbook
        TempFilePath = "C:\"
        TempFileName = "data.xlsx"
        .SaveAs Filename:=TempFilePath & TempFileName
        .SendMail _
        Recipients:=Modtager, _
        Subject:=overskrift
        .Close SaveChanges:=False
  End With

  Application.MailLogoff
  Else
    MsgBox "Intet Microsoft postsystem er installeret.", vbInformation, "Postmeddelelse"
  End If
  On Error Resume Next
  Kill ("C:\data.xlsx")
End Sub


Der bliver oprettet en ny workbook med det faneblad som du ønsker, den nye workbook bliver gemt på harddisken, filen sendes, og til slut slettes filen igen.

1000 Tak! Det var lige hvad jeg skulle bruge.

Smider du lige et svar?

Mvh. Michael.

jeps, super