En libros de trabajo complejos que contienen muchas hojas de trabajo, no es inusual necesitar una lista de las diferentes hojas de trabajo. Una vez que tenga la lista, puede imprimirla o usarla de alguna otra manera, como para crear una tabla de contenido para su libro de trabajo. La siguiente macro, GetSheets, recupera rápidamente los nombres de las hojas de trabajo en el libro actual. Los coloca en la hoja de trabajo actual, comenzando en la celda A1 y luego avanzando hacia abajo.

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

Esta macro sobrescribirá todo lo que necesite en una celda en el libro de trabajo actual, por lo que debe asegurarse de no necesitar nada en la columna A de la hoja de trabajo. Si no desea sobrescribir nada, asegúrese de crear una nueva hoja de trabajo y luego ejecute la macro desde esa hoja de trabajo.

Una vez creada la lista de hojas de trabajo, puede formatearla como desee y luego imprimirla.

_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 (12181) 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-Printing_a_Worksheet_List [Imprimiendo una lista de hojas de trabajo].