​生成超链接正确写法

动画中所复制的代码如下：

Sub ml()
    Dim sht As Worksheet, i&, shtname$
    Columns(1).ClearContents
   '清空A列数据
    Cells(1, 1) = "目录"
   '第一个单元格写入字符串"目录"
    i = 1
   '将i的初值设置为1.
    For Each sht In Worksheets
       '循环当前工作簿的每个工作表
        shtname = sht.Name
        If shtname <> ActiveSheet.Name Then
       '如果sht的名称不是当前工作表的名称则开始在当前工作表建立超链接
            i = i + 1
           '累加i
           ActiveSheet.Hyperlinks.Add anchor:=Cells(i, 1), Address:="",SubAddress:="'" & shtname & "'!a1",TextToDisplay:=shtname
           '建超链接
        End If
    Next
End Sub

酱紫是不是很有趣？
如果想【目录】美观，可以选择【图形和形状】来作为宏代码运行的按钮，当然也可以对目录内容所在单元格做相应的美化处理。
最后补充一点代码说明：
小代码里用到了Hyperlinks.Add语句，这里用一个图片来解释它的每个参数。