在包含许多工作表的复杂工作簿中，通常需要一个不同工作表的列表。有了列表后，就可以打印或以其他方式使用它，例如为工作簿创建目录。下面的宏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

此宏将覆盖当前工作簿中所需单元格中的所有内容，因此您应确保在工作表的A列中不需要任何内容​​。如果您不想覆盖任何内容，请确保创建一个新的工作表，然后从该工作表运行宏。

创建工作表列表后，您可以根据需要对其进行格式化，然后将其打印出来。

注意：

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

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

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

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

打印工作表列表。