Che ne dici di avere un elenco di fogli ciascuno con collegamento ipertestuale al rispettivo nome del foglio nella cartella di lavoro? Bene, questo può essere fatto con il seguente codice: Sub CreateHyperlinkedSheetList ()

Dim ws As Worksheet Application.ScreenUpdating = False ActiveSheet.Range (“A: A”). Cancella ‘cancella elenco esistente Per ogni ws In ActiveWorkbook.Worksheets With ActiveSheet.Range (“A” & Rows.Count) .End (xlUp)