How do I move or copy more then one sheet at a time

I've got a Excel workbook with over 400 worksheets in it, I need to turn each
of them into thier own work book. Are there any shortcuts?

Ron de Bruin has a utility to do just that

http://www.rondebruin.nl/copy6.htm



"Carl" wrote:

> I've got a Excel workbook with over 400 worksheets in it, I need to turn each
> of them into thier own work book. Are there any shortcuts?

Carl

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 Insert>Module. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.

Run the macro by going to Tool>Macro>Macros.

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


Gord Dibben Excel MVP

On Wed, 1 Jun 2005 23:54:02 -0700, "Carl" <Carl@discussions.microsoft.com>
wrote:

>I've got a Excel workbook with over 400 worksheets in it, I need to turn each
>of them into thier own work book. Are there any shortcuts?