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...