excel vba new sheet code example

Example 1: excel vba add sheet

Sheets.Add
Sheets.Add After:=Sheets("Input")
Sheets.Add After:=Sheets(1)
Sheets.Add Before:=Sheets(2)
Sheets.Add.Name = "NewSheet"						' Add sheet with name

Sheets.Add After:=Sheets(Sheets.Count)				' To end of Workbook	
Sheets.Add(Before:=Sheets(1)).Name = "FirstSheet"	' To beginning of Workbook

Example 2: create new worksheet excel visual basic

Imports Excel = Microsoft.Office.Interop.Excel

Dim ExcelApp As New Excel.Application
Dim ExcelWorkBook As Excel.Workbook
Dim ExcelWorkSheet As Excel.Worksheet

ExcelApp.Workbooks.Open("ExcelFileName")
ExcelWorkBook = ExcelApp.ActiveWorkbook

PreviousSheetName = ExcelWorkBook.Sheets(ExcelWorkBook.Sheets.Count).Name

ExcelWorkBook.Sheets.Add(After:=ExcelWorkBook.Sheets(PreviousSheetName)).Name = "New Sheet Name"