Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Seperating worksheets
The macro functions correctly for me as well. Thanks, Ron!
"Ron de Bruin" wrote: I have test in on my home network with wb.SaveAs "\\Jelle\SharedDocs\" & wb.Sheets(1).Name & ".xls" and it is working for me -- Regards Ron de Bruin http://www.rondebruin.nl "Steve" wrote in message ... The problem i am running into is that i can't find it. I am on a network here at work. I swapped the c:/ with the path where i want the file to be saved. We do not have a c drive. Shouldn't have worked? I can't find the seperated documents anywhere. "Ron de Bruin" wrote: Oops My english is bad<g seperte wornook Separate workbook -- Regards Ron de Bruin http://www.rondebruin.nl "Ron de Bruin" wrote in message ... Hi Steve Try this macro It will save each sheet in a seperte wornook in C:\ Sub test() Dim a As Integer Dim wb As Workbook Application.ScreenUpdating = False For a = 1 To ThisWorkbook.Worksheets.Count ThisWorkbook.Sheets(a).Copy Set wb = ActiveWorkbook wb.SaveAs "C:\" & wb.Sheets(1).Name & ".xls" wb.Close False Set wb = Nothing Next a Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Steve" wrote in message ... I have a workbook with about 15 worksheets in it. Is there a quick way to automatically seperate all 15 into single workbooks. or do I have to go 1 by 1? Thanks, Steve |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
maximum number of worksheets | Excel Worksheet Functions | |||
How to protect and unprotect 30 worksheets in a file every month . | Excel Worksheet Functions | |||
Protect/unprotect all worksheets | Excel Worksheet Functions | |||
HELP! How do you--> Lock a set of rows but also link worksheets to | Excel Discussion (Misc queries) | |||
Assigning Cells in worksheets to other data in other worksheets. | Excel Discussion (Misc queries) |