This article demonstrates a macro that inserts new worksheets based on names in a cell range. The cell range may have multiple columns if you like.

This macro allows you to create new worksheets very quickly.

1. Create new worksheets programmatically based on values in a cell range

1.1 How this macro works

The animated image above shows how this macro works.

1. Press Alt + F8 to open the Macro dialog box.
2. Select macro CreateSheets.
3. Press with mouse on "Run" button.
4. An input box appears asking for a cell range.
5. Select a cell range and press with left mouse button on the "OK" button.
6. Worksheets are now added automatically to the workbook and named correspondingly after the values in the cell range.

Back to top

1.2 VBA macro

'Name macro
Sub CreateSheets()

'Dimension variables and declare data types
Dim rng As Range
Dim cell As Range

'Enable error handling
On Error GoTo Errorhandling

'Show inputbox to user and prompt for a cell range
Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)

'Iterate through cells in selected cell range
For Each cell In rng

    'Check if cell is not empty
    If cell <> "" Then

        'Insert worksheet and name the worksheet based on cell value
        Sheets.Add.Name = cell
    End If

'Continue with next cell in cell range
Next cell

'Go here if an error occurs
Errorhandling:

'Stop macro
End Sub

Back to top

1.3 Where to put the code

1. Copy above VBA code.
2. Press Alt + F11 to open the Visual Basic Editor.
3. Press with mouse on your workbook in the Project Explorer.
4. Press with mouse on "Insert" on the menu.
5. Press with mouse on "Module".
6. Paste VBA code to code window, see image above.

Back to top

1.4 Explaining code

Creating procedures in excel is easy. Open the Visual Basic Editor using one of these instructions:

• Press Alt+F11
• Go to tab Developer and press with left mouse button on Visual basic "button"

You create macro procedures in a module. First create a module. Press with right mouse button on on your workbook in the project explorer. Press with left mouse button on Insert | Module.

Sub CreateSheets()

Type: Sub CreateSheets() in the module. CreateSheets() is the name of the macro.

Dim rng As Range
Dim cell As Range 

These lines declare rng and cell as range objects.  A range object can contain a single cell, multiple cells, a column or a row. Read more about declaring variables.

On Error Goto Errorhandling

If the user selects something else than a cell range like a chart, this line makes the procedure go to Errorhandling.

Set rng = Application.InputBox(Prompt:="Select cell range:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)

The inputbox asks the user for a cell range. The cell range is stored in the range object rng.

For Each cell In rng

This stores each cell value from the range object rng to the cell object, one by one.

If cell <> "" Then

Checks if the cell variable is NOT empty. If the cell variable is empty the procedure goes to "End If" line. We can't create a sheet with no name.

Sheets.Add.Name = cell

Creates a new sheet named with the value stored in the cell variable.

End If

The end of the If statement.

Next cell

Go back to the "For each" statement and store a new single cell in the cell object.

Errorhandling:

The procedure goes to this line if a line returns an error.

End Sub

All procedures must end with this line.

Back to top

1.5 Excel file

Get the Excel file

Quickly-create-mulitple-sheets.xlsm

Back to top

Recommended reading

List all open workbooks and corresponding sheets (vba)

2. Create new worksheets programmatically based on a comma-delimited list

The image above shows a comma delimited list in cell B2, the macro below in section 2.1 lets you select a cell containing a comma delimiting list.

It splits the string based on the comma into an array of values. The values are then used to insert new worksheets with names based on those array values.

Back to top

2.1 VBA code

Sub CreateSheetsFromList()
Dim rng As Range
Dim cell As Range
Dim Arr As Variant

On Error GoTo Errorhandling
Set rng = Application.InputBox(Prompt:="Select cell:", _
Title:="Create sheets", _
Default:=Selection.Address, Type:=8)

Arr = Split(rng.Value, ", ")

For Each Value In Arr
    If Value <> "" Then
        Sheets.Add.Name = Value
    End If
Next Value
Errorhandling:
End Sub

Back to top

Where to put the code?

2.2 Excel file

Get the Excel file

Quickly-create-mulitple-sheetsv2.xlsm

Back to top

3. Create new worksheets using an Input box

The following macro displays an input box allowing the Excel user to type a worksheet name, the worksheet is created when the "OK" button is pressed.

The macro stops if nothing is typed or the user presses the "Cancel" button. It shows a new input box each time a new worksheet is created.

Back to top

3.1 VBA code

Sub CreateSheetsFromDialogBox()
Dim str As String
Dim cell As Range
Dim Arr As Variant

On Error GoTo Errorhandling
Do
str = Application.InputBox(Prompt:="Type worksheet name:", _
Title:="Create sheets", Type:=3)
    If str = "" Or str = "False" Then
        GoTo Errorhandling:
    Else
        Sheets.Add.Name = str
    End If
Loop Until str = "False"

Errorhandling:
End Sub

Where to put the code?

Back to top

3.2 Excel file

Get the Excel file

Quickly-create-mulitple-sheetsv3.xlsm

Back to top

4. Copy the worksheet template and rename

This example demonstrates an Event macro that copies a worksheet based on a value in cell E2 and renames it to a cell value in column B.

4.1 VBA event code

'Event code that runs if a cell value is changed
Private Sub Worksheet_Change(ByVal Target As Range)

'Check if the cell value is in column B
If Not Intersect(Target, Range("B:B")) Is Nothing Then

    'Copy worksheet based on value in cell E2 in worksheet Sheet1 and put it last
    Sheets(Worksheets("Sheet1").Range("E2").Value).Copy , Sheets(Sheets.Count)

    'Rename worksheet to the value you entered.
    ActiveSheet.Name = Target.Value

End If

'Go back to worksheet Sheet1
Worksheets("Sheet1").Activate

End Sub

Back to top

4.2 Where to put the event code?

1. Press Alt + F11 to open the Visual Basic Editor.
2. Double press with left mouse button on with the left mouse button on the worksheet name where you want to put the event code, in the worksheet Explorer shown in the image above.
3. Paste event code to the code window, also shown in the image above.
4. Return to Excel.

Back to top

4.3 How to run macro?

The event code runs whenever a new value is entered in column B. For example, type Trend in cell B5, then press Enter.

The macro automatically copies the worksheet "Template" given in cell E2 and renames it to Trend. That is all.

Back to top