Private Sub Workbook_Open()
Dim sheet As Worksheet
Dim cell As Range

With ActiveWorkbook
' Просмотр всех листов книги и создание гиперссылок на них на -м листе
For Each sheet In ActiveWorkbook.Worksheets
Set cell = Worksheets("Копія даних").Cells(sheet.Index +  6 ,  14 )
.Worksheets("Копія даних").Hyperlinks.Add Anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
cell.Formula = sheet.Name
Next
End With
Sheets("Копія даних").Select
End Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы