Please Note: This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: 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.
Please Note:
This article is written for users of the following Microsoft Excel versions: 97, 2000, 2002, and 2003. If you are using a later version (Excel 2007 or later), this tip may not work for you. For a version of this tip written specifically for later versions of Excel, click here: 
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
Note:
ExcelTips is your source for cost-effective Microsoft Excel training. This tip (2274) applies to Microsoft Excel 97, 2000, 2002, and 2003. You can find a version of this tip for the ribbon interface of Excel (Excel 2007 and later) here: Retrieving Worksheet Names.
Program Successfully in Excel! John Walkenbach's name is synonymous with excellence in deciphering complex technical topics. With this comprehensive guide, "Mr. Spreadsheet" shows how to maximize your Excel experience using professional spreadsheet application development tips from his own personal bookshelf. Check out Excel 2013 Power Programming with VBA today!
If you have a lot of worksheets in a workbook, you may wonder if you can "freeze" the position of some of those worksheet ...
Discover MoreIf your workbook contains a multitude of worksheets, the worksheet tabs at the bottom of the program window start to ...
Discover MoreLook at the bottom of a worksheet and chances are you will see tabs for all the worksheets in the current workbook. Want ...
Discover MoreFREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
There are currently no comments for this tip. (Be the first to leave your comment—just use the simple form above!)
Got a version of Excel that uses the menu interface (Excel 97, Excel 2000, Excel 2002, or Excel 2003)? This site is for you! If you use a later version of Excel, visit our ExcelTips site focusing on the ribbon interface.
FREE SERVICE: Get tips like this every week in ExcelTips, a free productivity newsletter. Enter your address and click "Subscribe."
Copyright © 2021 Sharon Parq Associates, Inc.
Comments