save worksheets as workbooks

  • Thread starter Thread starter Consuela
  • Start date Start date
C

Consuela

If I have multiple worksheets within a file, and I want to
save each separately as a workbook, is there a quick &
easy way to do taht?

The purpose is that each spreadhseet will be embedded into
a PowerPoint, and I don't want to unnecessarily inflate
the file size by embedding the while file 10 times (the
number of worksheets).

If there are references within the workbook to other
worksheets within it, does this cause extra trouble for me?

Thanks for any help!
 
Dim sh As Worksheet

For Each sh In ActiveWorkbook.Worksheets
sh.Copy
ActiveWorkbook.SaveAs Filename:=sh.Name
Next sh

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Embed Multiple Worksheets in PowerPoint 1
Save Worksheet To Master Workbook 5
Trace links between worksheets within one workbook 4
Excel workbook links 1
Linking multiple worksheets in one workbook 2
multiple workbooks in one file 3
Apply different color themes to worksheets withing a workbook 2
HOW DO FIND OUT THE SIZE OF EACH WORKSHEET WITHIN A WORKBOOK 3

Back
Top