Add a worksheet and append value : Worksheet Add « Excel « VBA / Excel / Access / Word






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

Add a worksheet and append value

 
Sub NewWorkbook()
  Dim myWorkbook As Workbook, myWorksheet As Worksheet
  
  Set myWorkbook = Workbooks.Add
  Set myWorksheet = myWorkbook.Worksheets.Add(After:=myWorkbook.Sheets(myWorkbook.Sheets.Count))
  myWorksheet.Name = "January"
  myWorksheet.Range("A1").Value = "Sales Data"
  myWorkbook.SaveAs Filename:="JanSales.xls"
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 save it
7.Append a worksheet to the end of the worksheet list