Combining 3 macros to 1

D

David

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
 
B

Bob Phillips

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)
 
F

Frank Kabel

Hi
note: this will save the workbook twice: With the old name ans as a new
name:
Sub Save_combine()
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:="Q:\David\dailysales.xls"
ActiveWorkbook.SendMail Recipients:="test"
End Sub
 
H

Harald Staff

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