当Sheet表非常多的时候，一般我们会在第一张工作表中做一张目录，方便快速查找定位相应表格，以下示例将介绍如何通过宏程序一键生成目录。
效果如下：

参考代码如下：

Sub SheetList()
    Dim sht As Worksheet, i As Long, strName As String
    With Columns(1)
        .Clear '清空A列数据
        .NumberFormat = "@" '设置文本格式
    End With
    Range("a1") = "目录"
    For i = 1 To Sheets.Count '索引法遍历工作表集合
        strName = Sheets(i).Name '表名
        Cells(i + 1, 1).Value = strName
        ActiveSheet.Hyperlinks.Add anchor:=Cells(i + 1, 1), Address:="", SubAddress:="'" & strName & "'!a1", TextToDisplay:=strName
    Next
End Sub

 其中添加超链接的语法如下：

expression.Add (Anchor, Address, SubAddress, ScreenTip, TextToDisplay)

各参数说明如下图所示。

技术交流，软件开发，欢迎加微信xwlink1996 

---

作者其他作品：

VBA实战(Excel)(1)：提升运行速度

Ribbon第一节：控件大全

HTML实战(1)：新建一个HTML

VBA实战(Solidworks二次开发)(1)：如何开始

VB.net实战(VSTO)：Excel插件的安装与卸载