Come ottenere l’elenco dei fogli di lavoro della cartella corrente

Nelle cartelle di lavoro complesse che contengono molti fogli di lavoro, non è insolito aver bisogno di un elenco dei diversi fogli di lavoro. Una volta ottenuto l’elenco, è possibile stamparlo o utilizzarlo in altro modo, ad esempio per creare un sommario per la cartella di lavoro. La macro seguente, GetSheets, recupera rapidamente i nomi dei fogli di lavoro nella cartella di lavoro corrente. Li inserisce nel foglio di lavoro corrente, iniziando dalla cella A1 e poi procedendo verso il basso.

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

Questa macro sovrascriverà qualsiasi cosa sia eventualmente presente nelle celle di cui ha bisogno nella cartella di lavoro corrente, quindi dovresti assicurarti di non aver bisogno di nulla nella colonna A del foglio di lavoro. Se non vuoi sovrascrivere nulla, assicurati di creare un nuovo foglio di lavoro e quindi di eseguire la macro da quel foglio di lavoro.

Una volta creato l’elenco dei fogli di lavoro, è possibile formattarlo come desideri e quindi stamparlo.