SaveCopyAs Method
Saves a copy of the workbook to a file but doesn't modify the open workbook in memory.
expression.SaveCopyAs(Filename)
expression Required. An expression that returns a Workbook object.
Filename Required. Specifies the file name for the copy.
Example
This example saves a copy of the active workbook.
ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"