Co powiesz na listę arkuszy, z których każdy zawiera hiperłącze do odpowiedniej nazwy arkusza w skoroszycie? Cóż, można to zrobić za pomocą następującego kodu -
Sub UtwórzHyperlinkedSheetList()
Dim ws As Worksheet
Application.ScreenUpdating = Fałsz
ActiveSheet.Range("A:A").Wyczyść 'wyczyść istniejącą listę
Dla każdego ws In ActiveWorkbook.Worksheets
Z 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
Kończyć z
Następny
Application.ScreenUpdating = Prawda
Napis końcowy
Skopiuj powyższy kod do standardowego modułu i możesz przypisać go do przycisku, aby uruchomić go w dowolnym momencie.