Si tiene una gran cantidad de hojas de trabajo en un libro de trabajo, es posible que desee recuperar los nombres de esas hojas de trabajo y ponerlos en su propia hoja de trabajo. Por ejemplo, puede quererlos en un solo lugar para poder usarlos en una tabla de contenido o de alguna otra manera. La siguiente macro, GetSheets, recuperará rápidamente los nombres de las hojas de trabajo en el libro de trabajo actual y las colocará en el libro de trabajo actual, comenzando en la celda que esté seleccionada actualmente.

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

Si desea crear una tabla de contenido real donde los nombres de las hojas sean en realidad hipervínculos a las hojas de trabajo, puede modificar la macro de la siguiente manera:

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: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (11679) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.

Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Retrieving_Worksheet_Names [Recuperando nombres de hojas de trabajo].