Detach different WORKSHEETS in one WORKBOOK into DIFFERENT WORKBOOKS
You could run a macro.
Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Gord Dibben MS Excel MVP
On Mon, 06 Aug 2007 14:26:13 -0000, Positive wrote:
Please help.
I have a workbook of about 100 worhsheets. How do I detach these 100
worksheets into 100 DIFFERENT WORKBOOKS without copy/paste and save
manually every single sheet so that they can be 100 independent excel
workbooks.
Many thanks
Lan
|