I have an Excel document with four worksheets and need to send each one as an
email. How do I make each worksheet into its own document?

If this is a one timer just copy each sheet to a new workbook and send the
workbook
If this will happen quite often you can download an add-in by Ron De Bruin

http://www.rondebruin.nl/mail/add-in.htm



--
Regards,

Peo Sjoblom



"Cher" wrote in message
...
I have an Excel document with four worksheets and need to send each one as
an
email. How do I make each worksheet into its own document?

Ron's sendmail add-in is best choice for sending each sheet.

If you did want to create new workbooks just for this or any other reason.....

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Mon, 9 Jul 2007 10:02:01 -0700, Cher wrote:

I have an Excel document with four worksheets and need to send each one as an
email. How do I make each worksheet into its own document?

If you use this code example you can do it with one click
http://www.rondebruin.nl/mail/folder1/mail5.htm

Or example 2 on this page
http://www.rondebruin.nl/mail/folder1/mail2.htm



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Peo Sjoblom" wrote in message ...
If this is a one timer just copy each sheet to a new workbook and send the
workbook
If this will happen quite often you can download an add-in by Ron De Bruin

http://www.rondebruin.nl/mail/add-in.htm



--
Regards,

Peo Sjoblom



"Cher" wrote in message
...
I have an Excel document with four worksheets and need to send each one as
an
email. How do I make each worksheet into its own document?