Retrieving Worksheet Names

If you have a very large number of worksheets in a workbook, you might want to retrieve the names of those worksheets and put then on their own worksheet. For instance, you may want them in one place so you can use them in a table of contents or in some other fashion. The following macro, GetSheets, will quickly retrieve the names of the worksheets in the current workbook and put them in the first column of the current workbook, beginning at cell A1.

Sub GetSheets()
    Dim J As Integer
    Dim NumSheets As Integer

    NumSheets = Sheets.Count
    For J = 1 To NumSheets
        Cells(J, 1) = Sheets(J).Name
    Next J
End Sub