MACRO HELP: Save All Sheets To Individual Workbooks

  • Thread starter Thread starter Zorro
  • Start date Start date
Z

Zorro

I have a workbook with a around 40 worksheets in it. I would like to save
each individual sheet to an individual workbook in a named location
hopefully following a naming convention, i.e: c\documents and
settings\zorro\my documents\My Project\workbookname_sheet1.xls,
....sheet2.xls, ...sheet3.xls etc.

Hope you can help


Zorro
 
Many thanks Ron. It worked a treat. I saved the macro to my personal
workbook first (mistake). Now I have made a template for my monthly sales
pivot table report with your macro in it. The original sales report with the
pivot table was too heavy for my pocket pc (at 5mb!) so I needed to split it
up (via Show Pages command in the pivot table) into manageable chunks. My
ppc can now cope with the 900kb files.

Thanks
Zorro
 
Hi Zorro

You can add the macro in your personal.xls if you want

Change

Set WbMain = ThisWorkbook

To

Set WbMain = ActiveWorkbook
 
Back
Top