Hi Patsy

Rightclick each sheet tab. Choose "move or copy", select Move and set New
Workbook as destination.

HTH. Best wishes Harald

Patsy

Real quick would involve a macro.

Sub Make_New_Books()
Dim w As Worksheet
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   For Each w In ActiveWorkbook.Worksheets
   'In case user doesn't want every worksheet
   '    For Each W In Worksheets(Array("sheet1", "Sheet3", _
        '     "Sheet5", "sheet7"))
       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

Another one
http://www.rondebruin.nl/copy6.htm