Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

With End With

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:="YourExcel2007File.xlsx"      With myWorkbook          .Worksheets.add After:=.Sheets(.Sheets.Count)      End With      End Sub