Is there a way to take a workbook and copy each worksheet to its ow
workbook.

IE: Workbook 1: Sheet A, Sheet B and Sheet C

Would like:
Workbook 2: A copy of 'Sheet A'
Workbook 3: A copy of 'Sheet B'
Workbook 4: A copy of 'Sheet C'

Thanks :-)

Hillar

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Try this which will leave them all open for you.

Sub saveeachwb()
For Each ws In Worksheets
ws.Copy
ActiveWorkbook.SaveCopyAs "c:\personal" & ws.Name
Next
End Sub

--
Don Guillett
SalesAid Software

"hef" wrote in message
...

Is there a way to take a workbook and copy each worksheet to its own
workbook.

IE: Workbook 1: Sheet A, Sheet B and Sheet C

Would like:
Workbook 2: A copy of 'Sheet A'
Workbook 3: A copy of 'Sheet B'
Workbook 4: A copy of 'Sheet C'

Thanks :-)

Hillary


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

I am able to get the routine to work. Thanks...

Problem is: the file won't save with the proper name.

I run it and I end up with

'Book1' instead of 'test1'

What now?

Also, is there a way to do below and close the copied workbook once th
copy has been made

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com

Never mind...I figured it out :-)

Thanks so much for your help. I can't tell you guys how much thi
forum has helped me out.

Hillar

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com