Gem regne ark før det sendes

Hej
Jeg har dette modul som jeg bruger til at sende et regneark med
se :

Sub SendEmail()
  Dim olApp As Object
  Dim olNameSpace As Object
  Dim olMail As Object
  Dim stRecipient As String, stAttachment As String
  stRecipient = "min@mail.dk"
  stAttachment = ThisWorkbook.FullName
  Set olApp = CreateObject("Outlook.Application")
  'hvis der skal bruges et logon
  'Set olNameSpace = olApp.GetNamespace("MAPI")
  'olNameSpace.Logon "UserName", "Password"
  Set olMail = olApp.CreateItem(0)
  With olMail
    .Subject = "SLAGTETAL TARMHUS"
    .Recipients.Add stRecipient
    .Body = "Her er SLAGTETAL TARMHUS for denne nat. mvh. Allan Smærup"

    .Attachments.Add stAttachment
    .Send
  End With
End Sub

Kan jeg ikke lave sådan at den automatisk gemmer regne arket før den sender det når jeg trykker på knappen send, den skal bare gemme det under sammen navn, altså over skrive den gamle der ligger der.
kan man tilføje det til modulet, og hvordan.
mvh Henrik C