e mail worksheets

  • Thread starter Thread starter RHT
  • Start date Start date
R

RHT

I need to e mail page 1 of a 3 page workbook to a
customer as an excel attachment. Currently I delete pages
2 and 3 attach and sent, then close without saving
changes. I have to do this 30-50 times a shift and it is
very time consuming. Is there a way to automatically drop
pages 2&3 before sending?
 
Hi
This code should copy sheet1 to a new workbook, e-mail that workbook to
recipient (e-mail address removed), then close the new workbook and return
you to the original


Sub mail_sheet_one()
wn = ActiveWorkbook.Name
Sheets(1).Copy
ww = ActiveWindow.Caption
ActiveWorkbook.SendMail Recipients:="(e-mail address removed)"
Windows(ww).Close SaveChanges:=False
Windows(wn).Activate
End Sub
 
Back
Top