应用背景：
当一个excel有很多sheet的时候，来回切换sheet会比较复杂，所以我希望excel的第一页有目录，可以随着sheet的增加，减少，改名而随时可以去更新，还希望有超链接可以直接跳到该sheet。
可以采用以下代码
Option Explicit
Sub List_Hyperlink()
Dim k!, sh
k = 0
For Each sh In Sheets
k = k + 1
Cells(k, 2) = sh.NameActiveSheet.Hyperlinks.Add Anchor:=Cells(k, 2), Address:="", SubAddress:= _sh.Name & "!A1", TextToDisplay:=sh.Name ’A1表示的是超链接过去后选中的单元格，可以根据要求自由更改NextEnd Sub
最终效果如下图所示。 如果这个表格越做越多的话，定期点击这个按钮即可刷新超链接。
PS：当表格越做越多，要找到这个sheet也是比较麻烦的，所以可以做一个返回这一页的按钮，copy到每一页，需要的时候点击一下就切到这个目录sheet了。
以上
