Hvad med at have en liste over ark, der hver især hyperlinkes til deres respektive arknavn i projektmappen? Nå, dette kan gøres med følgende kode -
Sub CreateHyperlinkedSheetList ()
Dim ws Som regneark
Application.ScreenUpdating = Falsk
ActiveSheet.Range ("A: A"). Fjern 'ryd eksisterende liste
For hver gang i ActiveWorkbook.Worksheets
Med ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)
.Offset (1) .Værdi = ws.Name
ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _
"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name
Afslut med
Næste ws
Application.ScreenUpdating = True
Afslut Sub
Kopier ovenstående kode til et standardmodul, og du kan tildele den til en knap for at aktivere den, når du vil.