Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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