One way:

Const csFILENAME As String = "MyBook.xls"

With ThisWorkbook
.SaveAs Filename:=.Path & Application.PathSeparator & csFILENAME
End With


In article . com,
"Guerilla" wrote:

Hi,

I want to be able to move a selection of sheets to a new workbook, and
name the file (this does not change so I would declare this as a
string - I think), however, I would like the newly created file to be
saved in the current directory (the directory of the original file).
How can I do this?

Also,
In case I don't figure it out, what is the code for setting the
filename in the macro?

kind regards,

Matt