Co takhle mít seznam listů, z nichž každý bude v sešitu hypertextově propojen s názvem příslušného listu? To lze provést pomocí následujícího kódu -
Sub CreateHyperlinkedSheetList ()
Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveSheet.Range ("A: A"). Vymazat 'vymazat existující seznam
Za každý ws v ActiveWorkbook.Worksheets
S ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Offset (1) .Hodnota = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Konec s
Další ws
Application.ScreenUpdating = True
End Sub
Zkopírujte výše uvedený kód do standardního modulu a můžete jej přiřadit tlačítku, aby se spustilo, kdykoli budete chtít.