Turning Tabs into Files

[Upton333]

I expect this is very simple once you know how and I think I am 90% of the way there but can't quite make the magic happen!

I have a file with around 50 tabs that I want to make into individual files. I want to save them all in the same drive (Say C\Documents\Properties) and I want to name each file after its tab name.

Any assistance with a macro to do this will be greatly appreciated.

Many thanks

 

[Domski]

Hi,

Something like:

Sub test()
Dim myWS As Worksheet
For Each myWS In ThisWorkbook.Worksheets
myWS.Copy
With ActiveWorkbook
    .SaveAs ThisWorkbook.Path & "\" & myWS.Name & ".xls"
    .Close
End With
Next myWS
End Sub

Will split the file into different workbooks for each sheet in the same directory as the master workbook is saved.

Change:

.SaveAs ThisWorkbook.Path & "\" & myWS.Name & ".xls"

To

.SaveAs "C:\Documents\Properties\" & myWS.Name & ".xls"

If you want to have the master workbook elsewhere.

Hope it helps,

Dom

 

[Upton333]

Exactly like that. That has saved my secretary hours of cut and save as.

From her and me, many thanks.

Cheers