Vba excel all sheets in workbook

The following macro loops through every sheet in a workbook and writes the tab name of each sheet sequentially to a sheet you choose. This could be handy for a quick list of every sheet in a workbook with many sheets.

List all Worksheets in a Workbook

To use the macro just replace the word Sheet1(it appears twice) in the code with the tab name where you would like the results. Make sure there isn’t any important information on the output tab because it clears the data their before writing to it.

Sub ListSheets()

Dim ws As Worksheet
Dim x As Integer

x = 1

Sheets("Sheet1").Range("A:A").Clear

For Each ws In Worksheets
     Sheets("Sheet1").Cells(x, 1) = ws.Name
     x = x + 1
Next ws

End Sub

If you have an Excel workbook that has hundreds of worksheets, and now you want to get a list of all the worksheet names, you can refer to this article. Here we will share 3 simple methods with you.

Sometimes, you may be required to generate a list of all worksheet names in an Excel workbook. If there are only few sheets, you can just use the Method 1 to list the sheet names manually. However, in the case that the Excel workbook contains a great number of worksheets, you had better use the latter 2 methods, which are much more efficient.

Method 1: Get List Manually

1. First off, open the specific Excel workbook.
2. Then, double click on a sheet’s name in sheet list at the bottom.
3. Next, press “Ctrl + C” to copy the name.
4. Later, create a text file.
5. Then, press “Ctrl + V” to paste the sheet name.
6. Now, in this way, you can copy each sheet’s name to the text file one by one.

Method 2: List with Formula

1. At the outset, turn to “Formulas” tab and click the “Name Manager” button.
2. Next, in popup window, click “New”.
3. In the subsequent dialog box, enter “ListSheets” in the “Name” field.
4. Later, in the “Refers to” field, input the following formula:

=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),"")

1. After that, click “OK” and “Close” to save this formula.
2. Next, create a new worksheet in the current workbook.
3. Then, enter “1” in Cell A1 and “2” in Cell A2.
4. Afterwards, select the two cells and drag them down to input 2,3,4,5, etc. in Column A.
5. Later, put the following formula in Cell B1.

=INDEX(ListSheets,A1)

1. At once, the first sheet name will be input in Cell B1.
2. Finally, just copy the formula down until you see the “#REF!” error.

Method 3: List via Excel VBA

1. For a start, trigger Excel VBA editor according to “How to Run VBA Code in Your Excel“.
2. Then, put the following code into a module or project.

Sub ListSheetNamesInNewWorkbook()
    Dim objNewWorkbook As Workbook
    Dim objNewWorksheet As Worksheet

    Set objNewWorkbook = Excel.Application.Workbooks.Add
    Set objNewWorksheet = objNewWorkbook.Sheets(1)

    For i = 1 To ThisWorkbook.Sheets.Count
        objNewWorksheet.Cells(i, 1) = i
        objNewWorksheet.Cells(i, 2) = ThisWorkbook.Sheets(i).Name
    Next i

    With objNewWorksheet
         .Rows(1).Insert
         .Cells(1, 1) = "INDEX"
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "NAME"
         .Cells(1, 2).Font.Bold = True
         .Columns("A:B").AutoFit
    End With
End Sub

1. Later, press “F5” to run this macro right now.
2. At once, a new Excel workbook will show up, in which you can see the list of worksheet names of the source Excel workbook.

Comparison

Excel Gets Corrupted

MS Excel is known to crash from time to time, thereby damaging the current files on saving. Therefore, it’s highly recommended to get hold of an external powerful Excel repair tool, such as DataNumen Outlook Repair. It’s because that self-recovery feature in Excel is proven to fail frequently.

Author Introduction:

Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including sql fix and outlook repair software products. For more information visit www.datanumen.com