Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Use Application object to save a workbook as a new file

Public Sub SaveSpecificWorkbook1()   Application.Workbooks.Add   Call Application.ActiveWorkbook.SaveAs("temp1.xls")   Application.Workbooks("temp1.xls").SaveAs ("copy of temp1.xls") End Sub