获取Book里所有sheet的名字，且带上超链接

 应用背景：

        当一个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.Name
    ActiveSheet.Hyperlinks.Add Anchor:=Cells(k, 2), Address:="", SubAddress:= _
    sh.Name & "!A1", TextToDisplay:=sh.Name        
    ’A1表示的是超链接过去后选中的单元格，可以根据要求自由更改

Next

End Sub

最终效果如下图所示。 如果这个表格越做越多的话，定期点击这个按钮即可刷新超链接。

PS：当表格越做越多，要找到这个sheet也是比较麻烦的，所以可以做一个返回这一页的按钮，copy到每一页，需要的时候点击一下就切到这个目录sheet了。

以上