codice:
Option Explicit
Sub elenca_fogli()
Dim i As Integer
Dim foglio As Worksheet
i = 2
Range("a:a").ClearContents
For Each foglio In ActiveWorkbook.Sheets
If foglio.Name <> "Foglio1" Then
Sheets(1).Hyperlinks.Add anchor:=Range("a" & i), Address:="#" & foglio.Name & "!a1", TextToDisplay:=foglio.Range("a1").Value
End If
i = i + 1
Next foglio
End Sub
Nella colonna A del foglio 1 verrà creato l'elenco di tutti i fogli ad eccezione del foglio1 e il testo visualizzato in ogni link sarà il contenuto della cella A1 di ciascun foglio.
Adattalo alle tue esigenze. Scappo che ricomincia la partita.