Append a worksheet to the end of the worksheet list : Worksheet Add « Excel « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Excel
  3. Worksheet Add

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








Related examples in the same category

1.Add a new sheet with name in A1
2.Create a new sheet with month name and year as its name
3.Add a new Sheet
4.Creating a new worksheet for your workbook, and then it fills in several cells in that new worksheet.
5.Inserts new monthly sheet
6.Add a worksheet and append value
7.Add a worksheet and save it