Макрос такой:
Sub Оглавление ()
Dim Contents As Worksheet
Set Contents = ActiveWorkbook.Worksheets.Add (before:=ActiveWorkbook.Worksheets (1))
Contents.Range («A1») = "Оглавление"
Contents.Name = "Оглавление"
For i = 2 To ActiveWorkbook.Worksheets.Count
Contents.Hyperlinks.Add Anchor:=Cells (i, 1), Address:="", SubAddress:="'" & ActiveWorkbook. Worksheets (i).Name & "'!A1", TextToDisplay:=ActiveWorkbook.Worksheets (i).Name
Next i
Contents.Columns (1).EntireColumn.AutoFit
End Sub
Его можно добавить в личную книгу макросов, чтобы он был доступен у вас во всех книгах Excel, а потом добавить на панель быстрого доступа, чтобы оглавление создавалось по нажатию кнопки.
Инструкция по добавлению макроса в личную книгу и на панель быстрого доступа — в видео ниже!
Если у вас еще нет личной книги макросов, ее можно добавить, записав любой макрос — инструкция по
ссылке.
Сам макрос можно скачать по
ссылке.