Make each tab/worksheet into a separate document

[Cher]

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?

 

[Peo Sjoblom]

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

 

[Gord Dibben]

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

 

[Ron de Bruin]

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