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:=ActiveWorkbook.Path _
& "\" & w.Name
ActiveWorkbook.Close
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Will retain links.


Gord Dibben MS Excel MVP

On Thu, 30 Oct 2008 13:43:02 -0700, Kueck
wrote:

I need to take a large workbook that has several worksheets, and save each
worksheet as an individual workbook, maintaining links if possible. I know I
can do this manually, but would like to do it as automatically as possible.