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