Excel add sheet with name

This tutorial will discuss how to add / insert worksheets using VBA.

This simple macro will add a Sheet before the ActiveSheet:

Sub Add ()
    Sheets.Add
End Sub

After inserting a Sheet, the new Sheet becomes the ActiveSheet. You can then use the ActiveSheet object to work with the new Sheet (At the bottom of this article we will show how to insert a new sheet directly to a variable).

ActiveSheet.Name = "NewSheet"

Add Sheet with Name

You can also define a Sheet name as you create the new Sheet:

Sheets.Add.Name = "NewSheet"

Create New Sheet with Name from a Cell

Or use a cell value to name a new Sheet:

Sheets.Add.Name = range("a3").value

Add Sheet Before / After Another Sheet

You might also want to choose the location of where the new Sheet will be inserted. You can use the After or Before properties to insert a sheet to a specific location in the workbook.

Insert Sheet After Another Sheet

This code will insert the new sheet AFTER another sheet:

Sheets.Add After:=Sheets("Input")

This will insert a new Sheet AFTER another sheet and specify the Sheet name:

Sheets.Add(After:=Sheets("Input")).Name = "NewSheet"

Notice the extra parenthesis required in the second example (the first example will generate an error if the second parenthesis are added).

or Before:

Sheets.Add(Before:=Sheets("Input")).Name = "NewSheet"

In these examples we explicitly named the Sheet used to determine the sheet location. Often you’ll want to use the Sheet Index number instead, so that you can insert the sheet to the beginning or end of the Workbook:

Add Sheet To End of Workbook

To add a Sheet to the end of the workbook:

Sheets.Add After:=Sheets(Sheets.Count)

Add Sheet To Beginning of Workbook:

To add a Sheet to the beginning of the workbook:

Sheets.Add(Before:=Sheets(1)).Name = "FirstSheet"

Add Sheet to Variable

This code assigns the new Sheet to a variable as the sheet is created:

Dim ws As Worksheet
Set ws = Sheets.Add

From here you can reference the new sheet with the variable ‘ws’:

ws.name = "VarSheet"

More Add Sheet Examples

Create Sheet if it Doesn’t Already Exist

You might want to create a sheet only if it doesn’t already exist.

VBA Programming | Code Generator does work for you!

Create Worksheets From List of Names

The following routine will look at the contents of a single column set up Excel worksheets within the current workbook with these names. It makes a call to another function to see if a sheet with that name already exists, and if so the sheet isn’t created.

Private Sub CommandButton1_Click()

Call CreateWorksheets(Sheets("Sheet2").Range("A1:a10"))

End Sub

Sub CreateWorksheets(Names_Of_Sheets As Range)
Dim No_Of_Sheets_to_be_Added As Integer
Dim Sheet_Name As String
Dim i As Integer

No_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.Count

For i = 1 To No_Of_Sheets_to_be_Added

Sheet_Name = Names_Of_Sheets.Cells(i, 1).Value

'Only add sheet if it doesn't exist already and the name is longer than zero characters

If (Sheet_Exists(Sheet_Name) = False) And (Sheet_Name <> "") Then
    Worksheets.Add().Name = Sheet_Name
End If

Next i

End Sub

Function Sheet_Exists(WorkSheet_Name As String) As Boolean
Dim Work_sheet As Worksheet

Sheet_Exists = False

For Each Work_sheet In ThisWorkbook.Worksheets

    If Work_sheet.Name = WorkSheet_Name Then
        Sheet_Exists = True
    End If

Next

End Function

So if we have the following text in cells A1:A30 in Sheet 2:

Then the following sheets will be created:

Note that although “Dog” appears twice, only one sheet is created.

To download the .XLS file for this tutorial, click here.

<<Return to VBA Examples

Note: Sheet tabs are displayed by default. If you don’t see them, click Options > Advanced > Display options for this workbook > Show Sheet tabs.

To insert a new worksheet, do one of the following:

• To quickly insert a new worksheet at the end of the existing worksheets, click the Insert Worksheet tab at the bottom of the screen.

  

• To insert a new worksheet in front of an existing worksheet, select that worksheet and then, on the Home tab, in the Cells group, click Insert, and then click Insert Sheet.

  

  Tip: You can also right-click the tab of an existing worksheet, and then click Insert. On the General tab, click Worksheet, and then click OK.

  Note: To change the order of the worksheets in a workbook, click the tab of the worksheet that you want to move, and then drag it to the location that you want.

Skip to content

Sub DobavitNoviiList()
'Шаг 1: Говорим Excel, что делать, если ошибка
On Error GoTo MyError
'Шаг 2: Добавляем лист
Sheets.Add
'Шаг 3: Присваиваем имя
ActiveSheet.Name = "Отчет"_
WorksheetFunction.Text(Now(),"yyyy")
'Шаг 4: Выходим
Exit Sub
'Шаг 5: Если произошла ошибка, сообщение пользователю
MyError:
MsgBox "Лист с таким именем уже есть!"
End Sub

New Worksheets are continually being added to your Workbook. It might seem incredibly tedious to have to do everything by hand at times (specifically if you have multiple sheets to add).

Automating these monotonous tasks is a quick and easy way to solve the problem.

Using VBA to Add New Worksheet with Specific Name

I have programmed the Visual Basic for Applications (VBA) code to add a new Worksheet at the very end of the Worksheets and give it the label «specific name»

Step 1

Save the file and then go to the Developer menu and pick Visual Basic.

Or,

Simply pressing ALT + F11 will bring up the Visual Basic Editor.

Step 2

To access the project’s workbook, right-click its name in the Project panel

Step 3

In order to access the VBA editor, go to the Insert menu and choose Module.

This is the VBA editor.

Step 4

Enter one of the codes that are listed below into the editing window (based on your requirement)

Sub AddAndNameWithSpecificName()
'Step 1: Tell Excel what to do in the event of an error.
 On Error GoTo Error

'Step 2: Create a new worksheet and give it a name that is
easily identifiable.
 Sheets.Add.Name = "My Specific Name" 'Create a new
worksheet and call it "My Specific Name," then replace "My
New Sheet" with your own name..
 Exit Sub

'Step 3: If there was a problem here, the user should be
informed.
Error:
 MsgBox "That is the name of an existing Worksheet in the
spreadsheet."
End Sub

Put an end to editing in the VBA environment.

To respond to the new sheet, you should make a button.

Step 5

Make a button by selecting the insert option in the developer tab and clicking it.

Step 6

Place the assigned macro script within this button. And press OK.

Step 7

This is the button that has been generated; you may rename it according to your specifications if you want.

in addition to clicking on this button.

Step 8

You may personalise a sheet and give it the name «My Specific Name.» This will cause it to appear in the results automatically

Manually Add New Worksheet with Current Date

Consider the scenario in which you are compiling a record of the time spent on various tasks and want to quickly input the current date. Or you could wish to have the current date shown in a sheet in a way that is triggered automatically whenever the formulae are recalculated. There are a few different approaches one may use when inserting today’s date into a sheet.

Step 1

When you first launch Microsoft Excel, you are presented with a menu that gives you the choice between a number of different worksheets, as is seen below.

Step 2

You have the option of picking one that corresponds to the prerequisites. Make a blank worksheet for the time being. The blank worksheet appears as shown down below.

Step 3

It is possible that you may get into a position in which you will need to append an additional worksheet to the side of the one that is already there. Excel Workbooks are collections of Excel worksheets that are kept together in one location. Right-clicking on the sheet name in the bottom sheet tracker tray allows you to insert a new worksheet into the document. This is shown in the following image.

Step 4

Create a new worksheet like the one shown below by choosing the «new worksheet» option from the list of choices that are now accessible to you.

Step 5

You will see a new dialogue box emerge on the screen, in which you will have the opportunity to pick the option to add a new sheet.

Step 6

You have the ability to give the Excel Worksheet a new name by rightclicking on the sheet’s name and choosing the rename option from the dialogue box, as is shown in the following image.

Step 7

You are free to rename this sheet in current date, for example Sheet1, to current date.

Conclusion

In this tutorial, we explained how you can add a new worksheet with a specific name in Excel.