Good morning Excel people!

I have a workbook with 40 seperate worksheets. I would like to break this
up into 40 seperate workbooks. Is there a simple way to do this other than
having to move each ss one at a time.

Thanks for your help.
Rich

the following code allows you to select a Folder and then saves each
worksheet in the folder using the sheetname as the new workbook name.


Sub split_book()

Set objShell = CreateObject("Shell.Application")
On Error Resume Next
Set objFolder = objShell.BrowseForFolder(&H0&, "Select Folder ", &H1&)
If Not objFolder Is Nothing Then
Set oFolderItem = objFolder.Items.Item
Folder = oFolderItem.Path

For Each sht In ThisWorkbook.Sheets

sht.Copy
ActiveWorkbook.SaveAs Filename:=Folder & "\" & sht.Name
ActiveWorkbook.Close
Next sht
End If
End Sub

"Richard" wrote:

Good morning Excel people!

I have a workbook with 40 seperate worksheets. I would like to break this
up into 40 seperate workbooks. Is there a simple way to do this other than
having to move each ss one at a time.

Thanks for your help.
Rich

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

--

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


"Richard" wrote in message ...
Good morning Excel people!

I have a workbook with 40 seperate worksheets. I would like to break this
up into 40 seperate workbooks. Is there a simple way to do this other than
having to move each ss one at a time.

Thanks for your help.
Rich