Lag en hyperkoblet arkliste

Hva med å ha en liste over ark som er hyperkoblet til hvert sitt arknavn i arbeidsboken? Vel, dette kan gjøres med følgende kode -

Sub CreateHyperlinkedSheetList ()

Dim ws Som regneark

Application.ScreenUpdating = Falsk

ActiveSheet.Range ("A: A"). Fjern "slett eksisterende liste

For hver gang i ActiveWorkbook.Worksheets

Med ActiveSheet.Range ("A" & Rows.Count) .End (xlUp)

.Offset (1) .Value = ws.Name

ActiveSheet.Hyperlinks.Add Anchor: =. Offset (1), Address: = "", SubAddress: = _

"'" & ws.Name & "'! A1", TextToDisplay: = ws.Name

Slutt med

Neste ws

Application.ScreenUpdating = True

Slutt Sub

Kopier koden ovenfor til en standardmodul, og du kan tilordne den til en knapp, for å utløse den når du vil.