Can you advise how I change the following routine so that I e-mail only
the selected print areas (I have multiple print areas) on one sheet. Is
this in fact possible/

Thanks

mark

Sub Mail_ActiveSheet()
ActiveSheet.Copy
Dim strDate As String
Dim Addr As String
Dim rng As Range
PrintArea = "$A$1:$E$11"
Addr = PrintArea
Range(Addr).Select
Set rng = Selection
Application.GoTo rng, True
rng.Cells(1).Select
strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
& " " & strDate & ".xls"
ActiveWorkbook.SendMail ",
_
"E-Mail Test 1"
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
End Sub



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/