Sub Make_New_Book()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Sheet2").Copy
ActiveWorkbook.SaveAs Filename:="C:\testing" _
& "\" & Range("A2").Value
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Edit "C:\testing" to suit your path and folder name.


Gord Dibben MS Excel MVP

On Sat, 13 Dec 2008 02:05:53 -0800 (PST), wrote:

How can I create a macro that saves a worksheet as new file in a new
folder? To be more specifc. The main file has two worksheets. I want
worksheet two to be copied in a specific folder and the file to be
named the contents of a specific cell in worksheet 1.

I cant figure it out :(