Adding to the others: Consider using
SaveCopyAs
instead of SaveAs. That way you're still in the original file/folder.

--
HTH. Best wishes Harald
Followup to newsgroup only please

"David" skrev i melding
om...
I have 3 macros below that I have to run separately. How can I
combine them into 1? Thanks.

Sub Save()
ActiveWorkbook.Save
End Sub
Sub SaveName()
ActiveWorkbook.SaveAs Filename:="Q:\David\dailysales.xls"
End Sub
Sub Email()
ActiveWorkbook.SendMail Recipients:="test"
End Sub