Excel: Create Numbered Worksheets

The estimated reading time for this post is 0 minutes

    1. Open Excel
    2. Create a Worksheet named Summary
    3. In Cells A1 to A100 (or less or more ) create the range of numbers needed
    4. Go to the Developer tab

If you don’t see the Developer tab

    • Click the File tab.
    • Click Options.
    • Click Customize Ribbon.
    • Under Customize the Ribbon and underMain Tabs, select the Developer check box.
  1. Click the Visual Basic Icon
  2. Delete the code in the Book1 Module1 Window
  3. Paste in the following Code
Sub CreateSheetsFromAList()Dim MyCell As Range, MyRange As Range

 Set MyRange = Sheets(“Summary”).Range(“A1”)

Set MyRange = Range(MyRange, MyRange.End(xlDown))

 For Each MyCell In MyRange

Sheets.Add After:=Sheets(Sheets.Count) ‘creates a new worksheet

Sheets(Sheets.Count).Name = MyCell.Value ‘ renames the new worksheet

Next MyCell

End Sub

  1. Click Run (the Green triangle button)