Look out Gord

If your default Save format in 2007 is not xlsx this will not work

--

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




"Gord Dibben" <gorddibbATshawDOTca wrote in message ...
Sub Make_New_Books()
Dim w As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In ActiveWorkbook.Worksheets
w.Copy
With ActiveWorkbook
.SaveAs FileName:=ActiveWorkbook.Path _
& "\" & w.Name & ".xlsx" 'change to .xls if not 2007 version
.Close
End With
Next w
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub


Gord Dibben MS Excel MVP

On Mon, 20 Apr 2009 12:37:03 -0700, Tanya
wrote:

I have a workbook with several worksheets (30) and am trying to find a way to
save each worksheet in the book as a new excel file using the name of the
worksheet as the new file name...I use the move or copy regularly, but was
hoping to avoid having to type the names for each worksheet inorder to save
them?

Thanks for your help!

Tanya