Combining 3 macros to 1
 

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

Combining 3 macros to 1
 

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

Combining 3 macros to 1
 

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

--
Regards
Frank Kabel
Frankfurt, Germany


David wrote:
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

Combining 3 macros to 1
 

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