Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

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