how can I e-mail a single sheet from a work book?

Posted by RAJESH MOHAN on May 06, 2001 3:47 AM

dear friends,

i have a workbook with a number of sheets and i want to e-mail only one of these sheets or each sheet to different e-mail address. how can i do this without saving each sheet as a separate workbook and sending that new workbook as an attachment.

please help

thanks all
rajesh

Posted by Dave Hawley on May 06, 2001 4:36 AM

Hi Rajesh

This is possible in Excel 2000, but not 97. I take it you have 97 ?

The way you can overcome this is to copy the sheet first. The default for a sheet copy is to a new workbook that will ONLY contain the copied sheet:

The macro below will overcome this problem for you.

Sub SendSingleSheet()
'Written by OzGrid Business Applications
'www.ozgrid.com
Dim SBookName
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Sends a copy of single Worsheet as an email attachment
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheet1.Copy
Application.Dialogs(xlDialogSendMail).Show
ActiveWorkbook.Close SaveChanges:=False
End Sub

Dave

OzGrid Business Applications