MrExcel Publishing
Your One Stop for Excel Tips & Solutions

email only certain sheets


Posted by Karen Smith on March 29, 2001 8:23 PM

Application.Dialogs(xlDialogSendMail).Show will email the entire workbook, but is there any way to specify only certain sheets will be emailed?

Thanks
Karen


Posted by Dave Hawley on March 29, 2001 10:02 PM


Hi Karen

Possibly the easiest way is to place another two short line of code in:


Sheets("Sheet1").Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False

The "Sheets("Sheet1").Copy" will by default copy the named sheet to a New workbook containing the one sheet.

The "ActiveWorkbook.Close SaveChanges:=False" will close the New workbook without saving.


Dave


OzGrid Business Applications