save worksheets as workbooks

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!
 
B

Bob Phillips

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)
 
Top