Ultimately, and hopefully in the end, this is the final. Though my code was changed, I didn't spend the days changing it, so James solution was perfect.
The only remaining question is where do I send the check
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
Dim wbOriginal As Workbook
Dim wbNew As Workbook
Dim strDate As String
Dim x As Integer
'Set a variable containing the active workbook to use later
Set wbOriginal = Workbooks.Item(ActiveWorkbook.Name)
'Create the new workbook
Workbooks.Add
strDate = Format(Date, "mm-dd-yy")
ActiveWorkbook.SaveAs strDate & ".xls"
'Set a variable for the new workbook to use later
Set wbNew = ActiveWorkbook
'Activate the original workbook
wbOriginal.Activate
'Moves the sheets in the original workbook to the front of new workbook.
wbOriginal.ActiveSheet.PrintOut
wbOriginal.ActiveSheet.Copy Before:=wbNew.Worksheets(1)
wbOriginal.Worksheets("Draft").Copy _
After:=wbNew.Worksheets(1)
'Activate the new workbook
wbNew.Activate
'Send the new workbook, etc.
Sheets("Sheet1").Delete
Sheets("Sheet2").Delete
Sheets("Sheet3").Delete
ActiveWorkbook.SendMail "<recipient", _
"Daily Sales Report for " & strDate
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
Application.DisplayAlerts = True
End Sub