Displaying all the worksheet names in Excel using VBA Code

Posted by AbundantCode

Do you want to display the names of the worksheets in the excel workbook ?. Here;s how you can do it using the VBA Code.

How to display all the worksheet names in Excel using VBA Code ?

Open up the Microsoft Visual Basic for Application Window using the keyboard shortcut key “ALT + F11” and enter the following run and free F5 to run it.

Sub DisplayWorksheetNames()
    ' Abundantcode sample
    Dim ws As Worksheet
    On Error Resume Next
    Application.DisplayAlerts = False
    Application.Sheets(xTitleId).Delete
    Application.Sheets.Add Application.Sheets(1)
    Set ws = Application.ActiveSheet
    xWs.Name = xTitleId
    For i = 2 To Application.Sheets.Count
        ws.Range("B" & (i - 1)) = Application.Sheets(i).Name
    Next
    Application.DisplayAlerts = True
End Sub

You should immediately see the list of worksheet names in the column B…

Tags: