Add new worksheet with name

The code below shows how you can create a new Worksheet and give it a name. Note that with Add the new sheet always becomes the active sheet.

Dim wb As Workbook: Set wb =
Dim strName As String: strName =
Dim ws As Worksheet
Set ws = wb.Worksheets.Add(Type:=xlWorksheet)
With ws
    .Name = strName
End With

The below sections discuss the arguments you can use to control how worksheets are added with specified position: Before and After, Count and what Type possibly using a template Template. At the end there is a macro you can use to Insert sheet with name specified by the user.

Before or After arguments

An object that specifies the sheet Before or After which the new sheet is added. If Before and After are both omitted, the new sheet is inserted before the active sheet.

As an example, below code adds a new worksheet After the active sheet in the active workbook

Dim wb As Workbook
Set wb = ActiveWorkbook
Dim ws As Worksheet
Set ws = wb.Sheets.Add(Type:=xlWorksheet, After:=Application.ActiveSheet)

The following code puts the new sheet at the beginning:

Set ws = wb.Worksheets.Add(Before:=wb.Worksheets(1), Type:=xlWorksheet)

different ways to add a worksheet

The following code puts the new sheet at the end:

Set ws = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.Count), Type:=xlWorksheet)


The number of sheets to be added. The default value is one.


Specifies the sheet type. Can be one of the following XlSheetType constants: xlWorksheet or xlChart - or template file path. The default value is xlWorksheet. 

Use Template

You can also insert sheets based on an existing template, see below.

Dim wb As Workbook: Set wb = ActiveWorkbook
Dim ws As Worksheet
Dim strTemplate As String: strTemplate = "C:\temp\tpt.xlsx"
Set ws = wb.Sheets.Add(Type:=strTemplate)

Insert sheet with name specified by the user 

If you often have to insert a worksheet and give it a name the macro below can be handy. The code is build up as follows:

  1. Uses InputBox to ask for the name of the worksheet to be inserted
    • The Title argument gives the pupose of the current action;
    • The Prompt argument specifies what input is required. Some details are added concerning not allowed characters
    • You could use Default argument to automatically fix errors in previously not ok sheet name, or pick up a proposed name somewhere else.
  2. Validates the string returned by the  InputBox :
    1. If empty string the sheet insertion is aborted.
    2. If there already is a sheet with this name
    3. If the string does not comply with excel sheet naming rules
    a MsgBox informs the user about any problems and lets the user either Abort or Retry.
  3. Inserts a worksheet and gives it the name specified in the inputbox.

Sub AddNewWorksheet()
Const cstrTitle As String = "Add new worksheet"
Const cstrPrompt As String = "Give the name for the new worksheet." & vbCrLf & "Not allowed are the characters: : \ / ? * [ and ]"
Dim strInput As String
Dim strDefault As String: strDefault = "" 'setting initial value for inputbox can be useful'
Dim strInputErrorMessage As String
Dim booValidatedOk As Boolean: booValidatedOk = False
On Error GoTo HandleError

strInput = InputBox(Prompt:=cstrPrompt, Title:=cstrTitle, Default:=strDefault)
If Len(strInput) = 0 Then GoTo HandleExit
GoSub ValidateInput
If Not booValidatedOk Then
    If vbCancel = MsgBox(strInputErrorMessage & "Retry?", vbExclamation + vbOKCancel) Then GoTo HandleExit
    End If
Loop While Not booValidatedOk

Dim wb As Workbook: Set wb = ActiveWorkbook
Dim shts As Sheets: Set shts = wb.Sheets
Dim obj As Object
Set obj = shts.Add(Before:=ActiveSheet, Count:=1, Type:=XlSheetType.xlWorksheet)
obj.Name = strInput

Exit Sub
MsgBox Err.Description
Resume HandleExit

If SheetExists(strSheetName:=strInput) Then
    strInputErrorMessage = "Sheet already exists. "
ElseIf Not IsValidSheetName(strSheetName:=strInput) Then
    strInputErrorMessage = "Sheetname not allowed. "
    booValidatedOk = True
End If
End Sub