Just?

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

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"David" wrote in message
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