breakup spreadsheets

[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

 

[Don Guillett]

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

 

[hef]

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

 

[hef]

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