MACRO HELP: Save All Sheets To Individual Workbooks

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
 
Z

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
 
R

Ron de Bruin

Hi Zorro

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

Change

Set WbMain = ThisWorkbook

To

Set WbMain = ActiveWorkbook
 
Top