Che ne dici di avere un elenco di fogli ciascuno con un collegamento ipertestuale al rispettivo nome del foglio nella cartella di lavoro? Bene, questo può essere fatto con il seguente codice:
Sub CreateHyperlinkedSheetList()
Dim ws come foglio di lavoro
Application.ScreenUpdating = False
ActiveSheet.Range ("A: A"). Cancella 'cancella elenco esistente
Per ogni ws in ActiveWorkbook.Worksheets
Con 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
Termina con
Avanti w
Application.ScreenUpdating = True
Fine sottotitolo
Copia il codice sopra in un modulo standard e puoi assegnarlo a un pulsante, per attivarlo quando vuoi.
