Како би било да у радној свесци имате листу листова са хипервезама до назива њихових листова? Па, ово се може урадити помоћу следећег кода -
Суб ЦреатеХиперлинкедСхеетЛист ()
Дим вс Ас Ворксхеет
Апплицатион.СцреенУпдатинг = Нетачно
АцтивеСхеет.Ранге ("О: А"). Обришите 'обриши постојећу листу
За сваки вс у АцтивеВоркбоок.Ворксхеетс
Са АцтивеСхеет.Ранге ("А" & Ровс.Цоунт) .Енд (клУп)
.Оффсет (1) .Валуе = вс.Наме
АцтивеСхеет.Хиперлинкс.Адд Анцхор: =. Оффсет (1), Аддресс: = "", СубАддресс: = _
"'" & вс.Наме & "'! А1", ТектТоДисплаи: = вс.Наме
Завршити
Нект вс
Апплицатион.СцреенУпдатинг = Тачно
Енд Суб
Копирајте горњи код у стандардни модул и можете га доделити дугмету да га активира кад год желите.