Se hai un numero molto elevato di fogli di lavoro in una cartella di lavoro, potresti voler recuperare i nomi di quei fogli di lavoro e inserirli nel loro foglio di lavoro. Ad esempio, potresti volerlo in un posto in modo da poterlo utilizzare in un sommario o in qualche altro modo. La seguente macro, GetSheets, recupererà rapidamente i nomi dei fogli di lavoro nella cartella di lavoro corrente e li inserirà nella cartella di lavoro corrente, a partire da qualsiasi cella sia attualmente selezionata.

Sub GetSheets()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         iRow = iRow + 1     Next w End Sub

Se vuoi creare un vero e proprio sommario in cui i nomi dei fogli sono effettivamente collegamenti ipertestuali ai fogli di lavoro, puoi modificare la macro nel modo seguente:

Sub MakeTOC()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer     Dim sTemp As String

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         sTemp = "'" & w.Name & "'!A1"

ActiveSheet.Hyperlinks.Add Anchor:=Cells(iRow, iCol), _           Address:="", SubAddress:=sTemp, TextToDisplay:=w.Name         iRow = iRow + 1     Next w End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (11679) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Retrieving Worksheet Names.