February 17, 2021
Макрос. Оглавление листов в Excel
Sub Оглавление()
'This macro adds the TOC as first sheet in the workbook
'with name as "Оглавление"
Dim sheetNum As Long
'Removing previous TOC if any
On Error Resume Next
Sheets("Оглавление").Delete
On Error GoTo 0
'Adding a new TOC
ThisWorkbook.Sheets.Add _
Before:=ThisWorkbook.Worksheets(1)
ActiveSheet.Name = "Оглавление"
For sheetNum = 1 To Sheets.Count
ActiveSheet.Cells(sheetNum, 1).Select
ActiveSheet.Hyperlinks.Add _
Anchor:=ActiveSheet.Cells(sheetNum, 1), _
Address:="", _
SubAddress:="'" & Sheets(sheetNum).Name & "'!A1", _
TextToDisplay:=Sheets(sheetNum).Name
Next sheetNum
End Sub