Kako bi bilo da u radnoj knjizi imate popis listova od kojih svaki ima hipervezu na naziv svog lista? Pa, to se može učiniti sa sljedećim kodom -
Sub CreateHyperlinkedSheetList ()
Zatamni kao radni list
Application.ScreenUpdating = Netačno
ActiveSheet.Range ("A: A"). Očistite 'obriši postojeći popis
Za svaki ws u ActiveWorkbook.Worksheets
S ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Offset (1) .Vrijednost = ws.Ime
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Adresa: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Završi s
Sljedeći ws
Application.ScreenUpdating = Istina
Kraj podm
Kopirajte gornji kôd u standardni modul i možete ga dodijeliti gumbu za aktiviranje kad god želite.