36 Worksheet, need to move to 36 new workbooks

**oddcarout** · 06-30-2011, 12:14 PM

Thank you for your help. I have done a search and can't find what I am looking for.

I am looking for a quick way to take my 36 work sheets and make them all into new work books.

I know that I can copy - new work book for each one but I was hoping that there was a quicker way to do it.

Again, thank you.

**oddcarout** · 06-30-2011, 12:19 PM

Also is there a way to go the other direction?

**royUK** · 06-30-2011, 02:13 PM

Do you want a macro to do this?

If so try

Option Explicit

Sub ShtsToWorkBooks()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        ActiveWorkbook.SaveAs ThisWorkbook.Path & Application.PathSeparator & ws.Name & ".xls"
        ActiveWorkbook.Close
    Next ws
End Sub

Thread: 36 Worksheet, need to move to 36 new workbooks

Thread Tools

Display

36 Worksheet, need to move to 36 new workbooks

Re: 36 Worksheet, need to move to 36 new workbooks

Re: 36 Worksheet, need to move to 36 new workbooks

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions