Vad sägs om att ha en lista med ark som var och en hyperlänker till sitt respektive bladnamn i arbetsboken? Tja, detta kan göras med följande kod -
Sub CreateHyperlinkedSheetList ()
Dim ws Som arbetsblad
Application.ScreenUpdating = Falskt
ActiveSheet.Range ("A: A"). Rensa "rensa befintlig lista
För varje ws 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
Sluta med
Nästa ws
Application.ScreenUpdating = True
Avsluta Sub
Kopiera ovanstående kod till en standardmodul och du kan tilldela den till en knapp för att aktivera den när du vill.