Macro para enumerar todas las hojas en un libro de trabajo - Ejemplos de código VBA

La siguiente macro recorre cada hoja en un libro de trabajo y escribe el nombre de la pestaña de cada hoja secuencialmente en una hoja que elija. Esto podría ser útil para obtener una lista rápida de todas las hojas de un libro de trabajo con muchas hojas.

Enumere todas las hojas de trabajo en un libro de trabajo

Para usar la macro, simplemente reemplace la palabra Sheet1 (aparece dos veces) en el código con el nombre de la pestaña donde le gustaría obtener los resultados. Asegúrese de que no haya información importante en la pestaña de salida porque borra los datos antes de escribir en ella.

123456789101112131415

Sub ListSheets ()Dim ws como hoja de trabajoDim x como enterox = 1Hojas ("Hoja1"). Rango ("A: A"). BorrarPara cada ws en hojas de trabajoHojas ("Hoja1"). Celdas (x, 1) = ws.Namex = x + 1Siguiente wsEnd Sub