Workbook.SaveCopyAs (Excel)

Salva uma cópia da pasta de trabalho em um arquivo mas não modifica a pasta de trabalho aberta na memória.

SaveCopyAs (Filename)

Filename: Especifica o nome de arquivo para a cópia.

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