Question : Get each sheet in a workbook into seperate new workbooks and save as the sheet name.

Hi,

Get each sheet in a workbook into seperate new workbooks and save as the sheet name..

I have 100+ sheets i want each sheet into a new workbook and saved into a seperate folder.

If the sheet has code in them then move the code as well.

Regards
sharath

Answer : Get each sheet in a workbook into seperate new workbooks and save as the sheet name.

Sharath,

You can use the following code to do what you want to do..

Saurabh...

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

 Sub CopyWorkbook()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
 
  
    Dim ws As Worksheet
    Dim y As String, x As String, xpath As String, u As String
 
 
    Set ws = ActiveSheet
    x = ActiveWorkbook.Name
    
    For Each ws In ActiveWorkbook.Worksheets
    u = ws.Name & ".xls"
    ws.Copy
    xpath = "Your Path Here."
    ActiveWorkbook.SaveAs Filename:=xpath & "\" & u, FileFormat:=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False
    ActiveWorkbook.Close
    Workbooks(x).Activate
   
  Next ws
  
 
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
 
End Sub
Open in New Window Select All
Random Solutions  
 
programming4us programming4us