Sub ОглавлениеКниги()
'Шаг 1: Объявляем переменные
Dim i As Long
'Шаг 2: Удаляем предыдущие элементы
On Error Resume Next
Application.DisplayAlerts = False
Sheets("Table Of Contents").Delete
Application.DisplayAlerts = True
On Error GoTo 0
'Шаг 3: Добавляем лист с оглавлением как первый лист
ThisWorkbook.Sheets.Add _
Before:=ThisWorkbook.Worksheets(1)
ActiveSheet.Name = "Table Of Contents"
'Шаг 4: Счетчик
For i = 1 To Sheets.Count
'Шаг 5: Select Next available row
ActiveSheet.Cells(i, 1).Select
'Шаг 6: Add Sheet Name and Hyperlink
ActiveSheet.Hyperlinks.Add _
Anchor:=ActiveSheet.Cells(i, 1), _
Address:="", _
SubAddress:="'" & Sheets(i).Name & "'!A1", _
TextToDisplay:=Sheets(i).Name
'Шаг 7: Loop back increment i
Next i
End Sub

 

Advertisements