Excel（VBA）创建工作簿中所有工作表名称的列表

Posted 2021-02-22

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.

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