How do I extract multiple tabs from an Excel workbook?
 

Is there a way to extract all of the tabs in a single workbook so as to
create individual workbook files labeled with the name of each tab? For
example, if I have a single XLS file with 15 tabs, is there an easy way to
extract all 15 tabs to 15 separate XLS files, each named for the name on the
original tab...

How do I extract multiple tabs from an Excel workbook?
 

See this page Ron
http://www.rondebruin.nl/copy6.htm

--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ron Finer" <Ron wrote in message ...
Is there a way to extract all of the tabs in a single workbook so as to
create individual workbook files labeled with the name of each tab? For
example, if I have a single XLS file with 15 tabs, is there an easy way to
extract all 15 tabs to 15 separate XLS files, each named for the name on the
original tab...

How do I extract multiple tabs from an Excel workbook?
 

Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
' For Each W In Worksheets(Array("sheet1", "Sheet3", _
' "Sheet5", "sheet7"))
w.Copy
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path _
& "\" & w.Name & Range("A2").Value
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Wed, 17 Sep 2008 08:16:12 -0700, Ron Finer <Ron
wrote:

Is there a way to extract all of the tabs in a single workbook so as to
create individual workbook files labeled with the name of each tab? For
example, if I have a single XLS file with 15 tabs, is there an easy way to
extract all 15 tabs to 15 separate XLS files, each named for the name on the
original tab...