Is it possible to easily separate worksheets into individual workbooks. I
have 28 worksheets that have to go to 28 individuals. Many thanks,
--
De

Right-click on a sheet/ Move or Copy ...
You've got the option to move each sheet to a new workbook.
--
David Biddulph

"De" wrote in message
...
Is it possible to easily separate worksheets into individual workbooks. I
have 28 worksheets that have to go to 28 individuals. Many thanks,
--
De

Very easy using VBA.

This macro will give you 28 files with one sheet each named after each worksheet
saved to the same folder as the active workbook.

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

If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".

http://www.mvps.org/dmcritchie/excel/getstarted.htm

In the meantime..........

First...create a backup copy of your original workbook.

To create a General Module, hit ALT + F11 to open the Visual Basic Editor.

Hit CRTL + r to open Project Explorer.

Find your workbook/project and select it.

Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to ToolMacroMacros.

You can also assign this macro to a button or a shortcut key combo.


Gord Dibben MS Excel MVP



On Tue, 24 Oct 2006 07:39:01 -0700, De wrote:

Is it possible to easily separate worksheets into individual workbooks. I
have 28 worksheets that have to go to 28 individuals. Many thanks,

Gord Dibben MS Excel MVP