Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Add a worksheet and save it

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