3-快速、批量、生成同个工作簿中多个工作表的目录超链接

接上个代码，插入"模块3”--复制下列代码--运行，设置对应超链接

Sub CreateTableofcontents()

'updateby Extendoffice 20180413

Dim xAlerts As Boolean

Dim I As Long

Dim xShtIndex As Worksheet

Dim xSht As Variant

xAlerts = Application.DisplayAlerts

Application.DisplayAlerts = False

On Error Resume Next

Sheets("Table of contents").Delete

On Error GoTo 0

Set xShtIndex = Sheets.Add(Sheets(1))

xShtIndex.Name = "Table of contents"

I = 1

Cells(1, 1).Value = "Table of contents"

For Each xSht In ThisWorkbook.Sheets

If xSht.Name <> "Table of contents" Then

I = I + 1

xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name

End If

Next

Application.DisplayAlerts = xAlerts

End Sub