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 metterli 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 prima colonna della cartella di lavoro corrente, a partire dalla cella A1.

Sub GetSheets()

Dim J As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For J = 1 To NumSheets         Cells(J, 1) = Sheets(J).Name     Next J 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 (2274) si applica a Microsoft Excel 97, 2000, 2002 e 2003. Puoi trovare una versione di questo suggerimento per l’interfaccia a nastro di Excel (Excel 2007 e versioni successive) qui:

Retrieving Worksheet Names.