strFilename = "Report Week 1"
ActiveWorkbook.SaveAs Filename:="D:\Store Returns\Reports\" & strFilename, _
FileFormat:=xlNormal, CreateBackup:=False

Not tested, but better to avoid using Excel keywords as variable names!

Regards,
Stefi

€žleerem€� ezt Ã*rta:

I have the following code but it doesn't work as it should, can anyone advise
where I'm going wrong.

Dim Filename
Workbooks.Add
Filename = "Report Week 1.xls"
' Name Workbook
ActiveWorkbook.SaveAs Filename:="D:\Store Returns\Reports\Filename", _
FileFormat:=xlNormal, CreateBackup:=False

Application.DisplayAlerts = False

This will save the file with the name of "Filename" how can I change this
code to reflect the variable name - Filename

Regards

Lee