Save Workbook then Email-Macro Need Help with Edit

[bamaisgreat]

I have a button in a spreadsheet that executes the code below. This spreadsheet is emailed to out to people and when they open it fill out a few cells I need the code to save there information then execute the email code below. Im not sure how to do this since the spreadsheet is opened up from an email and not actually saved .

Sub Mail_Workbook_1()
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
' This example sends the last saved version of the Activeworkbook object .
    Dim OutApp As Object
    Dim OutMail As Object


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)


    On Error Resume Next
   ' Change the mail address and subject in the macro before you run it.
    With OutMail
        .To = "johndoe@bama.com"
        .CC = ""
        .BCC = ""
        .Subject = "Selection List"
        .Body = "Please fill out form and press button"
        .Attachments.Add ActiveWorkbook.FullName
.
        .Send
    End With
    On Error GoTo 0


    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub