VBA小程序--工作簿中为所有工作表建立目录索引（工作表目标超链接）

Sub name_err()
    On Error GoTo ERR_1 '异常陷阱，异常捕获
    Worksheets("工作表目录").Activate   '这里可以变更为自己需要的程序语句
    Worksheets("工作表目录").Rows("1:" & Rows.Count).ClearContents
    Exit Sub    '没有遇到异常，则退出子程序
ERR_1:  '如果执行错误，则新建工作表
    Worksheets.Add.name = "工作表目录"  '这里可以变更为自己需要的程序语句
End Sub
Sub 工作簿中所有工作表建立目录()
    '为工作簿中所有工作表建立目录!
    Dim wt As Worksheet, sht As Worksheet, irow As Integer
    Call name_err
    'On Error GoTo 0    因为异常捕获是子程序，所以不会影响主程序的报错机制，这句话都会正常报错,而不会跳转到子程序的异常陷阱之中...
    With Worksheets("工作表目录")
    For Each sht In Worksheets
        irow = irow + 1      '行号加1，默认值为0
        .Cells(irow, 1).Value = irow '写入序号
        '写入工作表名，并建立超链接
        .Hyperlinks.Add Anchor:=.Cells(irow, 2), Address:="", SubAddress:="'" & sht.name & "'!A1", TextToDisplay:=sht.name
    Next
    End With
End Sub