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 los colocará en la primera columna del libro de trabajo actual, comenzando en la celda 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: _

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 (2274) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posteriores) aquí:

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