Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add Workbooks and save it as a new file

Sub add()      Workbooks.Add      ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData1.xlsx"      Workbooks.Add      ActiveWorkbook.SaveAs Filename:="C:\Data\SalesData2.xlsx"      Workbooks("SalesData1.xlsx").Activate End Sub