如果工作簿中有大量工作表，则可能要检索这些工作表的名称，然后放在自己的工作表中。例如，您可能希望将它们放在一个地方，以便可以在目录中或以其他方式使用它们。下面的宏GetSheets，将快速检索当前工作簿中工作表的名称，并将其放在当前工作簿的第一列中，从单元格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

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2274）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

检索工作表名称。