Excel VisualBasic Script

Sub saveAsDemo()
   ActiveWorkbook.SaveAs FileName:="c:\MyFile.xls"
End Sub