Как насчет наличия списка листов, каждый из которых имеет гиперссылку на соответствующее имя листа в книге? Что ж, это можно сделать с помощью следующего кода — Sub CreateHyperlinkedSheetList ()

Dim ws As Worksheet Application.ScreenUpdating = False ActiveSheet.Range («A: A»). Clear »очистить существующий список для каждого ws в ActiveWorkbook.Worksheets с помощью ActiveSheet.Range (« A »и Rows.Count) .End (xlUp)