1
Inicie Microsoft Excel y abra el libro.
2
Pulse " Alt + F8 " para abrir la ventana de Macros. Escriba " GetSheetNames " en el " Nombre de la macro " cuadro y luego haga clic en " Crear. "
3
Escriba el siguiente código en el editor de VBA.
GetSheetNames Sub ( )
wSheet Dim como hoja de trabajo
For Each wSheet En Hojas
On Error Resume Next
ActiveCell.Value = wSheet.Name
< p > ActiveCell.Offset ( 1 , 0). Seleccione
Siguiente wSheet
End Sub
4
Cierre el editor de VBA para volver al libro .
Página 5
Resalte una celda en la hoja de cálculo . Pulse " Alt + I " y luego " C " para crear una columna en blanco .
6
Haga clic en la primera celda en blanco de la nueva columna.
7
Pulse " Alt + F8 "para abrir la ventana de Macros nuevo. Seleccione " GetSheetNames " y haga clic en "Ejecutar ".