Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Append a worksheet to the end of the worksheet list

Sub NewWorkbook()   With Workbooks.Add     With .Worksheets.Add(After:=.Sheets(.Sheets.Count))       .Name = "January"       .Range("A1").Value = "Sales Data"     End With     .SaveAs Filename:="JanSales.xls"   End With End Sub