breakup spreadsheets

  • Thread starter Thread starter hef
  • Start date Start date
H

hef

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