How to save each tab as a new workbook
Thank you, thank you, thank you!!!!! This will save me so much time.
"Gord Dibben" wrote:
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 Thu, 4 Oct 2007 20:20:00 -0700, JKR wrote:
I have a wookbook with about 30 tabs (worksheets). Is there a way I can
automatically save each worksheet in the workbook as a new workbook, saving
as the tab name.xls? Thanks for your help!
|