Workbook.SaveCopyAs (Excel)

Guarda una copia del libro en un archivo, pero no modifica el libro abierto en memoria.

SaveCopyAs (Filename)

Filename: Especifica el nombre de archivo para la copia.

ActiveWorkbook.SaveCopyAs "C:\TEMP\XXXX.XLS"