Ce zici de a avea o listă de foi fiecare fiind hyperlinkată la numele fișei respective din registrul de lucru? Ei bine, acest lucru se poate face cu următorul cod -
Sub CreateHyperlinkedSheetList ()
Dim ws Ca foaie de lucru
Application.ScreenUpdating = Fals
ActiveSheet.Range („A: A”). Ștergeți „ștergeți lista existentă
Pentru fiecare ws din ActiveWorkbook.Worksheets
Cu 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
Se termina cu
Următorul ws
Application.ScreenUpdating = Adevărat
Sfârșitul Sub
Copiați codul de mai sus într-un modul standard și îl puteți atribui unui buton, pentru al declanșa oricând doriți.