Hi all,
I have a macro that works but I need it to do one more thing and I cant figure it out: the macro generates emails and attaches worksheets to it, it also adds a subject in the email AND I need all the emails to have a generic message in the body of the email, How do I do that?
Thank you
Sub Mail_every_Worksheet()
Dim sh As Worksheet
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
If sh.Range("b5").Value Like "*@*" Then
sh.Copy
ActiveWorkbook.SaveAs sh.Name & " _ " _
& ThisWorkbook.Name & ".xls"
ActiveWorkbook.SendMail ActiveSheet.Range("b5").Value, _
"Year to Date Chargeability as of May 25, 2013"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End If
Next sh
Application.ScreenUpdating = True
End Sub
Bookmarks