Try code like the following:

Sub AAA()
Dim NewPath As String
NewPath = "D:\Temp\" & ThisWorkbook.Name
ThisWorkbook.SaveAs Filename:=NewPath
End Sub


Change the "D:\Temp\" to the full folder path to which you want to
save the file.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional,
Excel, 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com


On Sat, 22 May 2010 13:22:01 -0700, S.S.
wrote:

I want to save a workbook in a different folder. The folder already exists,
and I want to use the same file name. What is correct code to do this?