以下代码实现在工作薄开头插入一张新的工作表，内容为每个工作表的超链接。

        工程->插入->模块

Sub CreateLink()
Dim i As Integer
Sheets.Add Before:=Sheets(1)
For i = 2 To Worksheets.Count
 ActiveSheet.Hyperlinks.Add _
Anchor:=Cells(i, 1), _
Address:="", _
SubAddress:="'" & Worksheets(i).Name & "'!A1", _
TextToDisplay:=Worksheets(i).Name
Next i
End Sub