Sub SheetNames()
Columns(1).Insert
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
End Sub

Sub SheetNames()
    
Columns(1).Insert
    
    For i = 1 To Sheets.Count
        Cells(i, 1) = Sheets(i).Name
    Next i
    
End Sub

This inserts a new column in the active worksheet and lists all the worksheet names, using a row for each name. Useful if you have lots of worksheets names that you want to reference accurately.

Excel (VBA) create list of all worksheet names in workbook

list

Visual Basic