Save current file as... a new name in a different directory.

[andymalan]

Greetings everyone, I want to save the current excel sheet with a filename name that has been auto-created and lives in cell Q2.
the re-named excel sheet must be saved in a different directory. the code I have so far does not work.
your help is greatly appreciated.

<code>
Application.DisplayAlerts = False

UsersName = Environ("USERNAME")
strFileName = "C:\Users\" & UsersName & _
"\Desktop\Excalibur Winner\02_ImportToExcalibur\"
Filename = Range("Q2")
ActiveWorkbook.SaveAs Filename:=Path & Filename & ".xlsm", FileFormat:=xlNormal
<code>

 

[Fluff]

Change the format from xlNormal to 52