Emece
You can use 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 Excel MVP
On Thu, 29 Sep 2005 07:51:17 -0700, "Emece"
wrote:
I have one workbook with 15 sheets. I want Excel to generate one separate
workbook from each sheet in the book. Is this possible?
Thanks in advance
Regards,
Emece.-
|