1
clic en la pestaña " desarrolladores" y haga clic en "Visual Basic " para iniciar el editor de Visual Basic . Haga clic en el menú "Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código .
2
Iniciar un subprocedimiento de la siguiente manera "
sheetNames Sub ( )
3
Crear el " sheetName " variable para mantener un registro de los nombres de las hojas y dos variables que se utilizan como contadores , de la siguiente manera :
sheetName dévil como secuencia
xCntr Dim As Integer
shtCntr Dim As Integer
4
Definir el contenido de la variable " sheetName " con el nombre de la primera hoja de cálculo del libro , de la siguiente manera :
sheetName = " Sheet1"
5
Dar el contador el valor 1 representa la primera hoja de cálculo:
shtCntr = 1
6
Uso el siguiente código para crear un " For ... Loop" para recorrer cada hoja de su libro y añadir el nombre de la hoja a la A1 con la " sheetName " variables :
para xCntr = 0 a 2
Hojas
( sheetName ) . Activar
Range (" A1") . Seleccione
ActiveCell.FormulaR1C1 = sheetName
Range (" A2" ) . Seleccione
shtCntr = shtCntr + 1
sheetName = "Hoja " y shtCntr
Siguiente xCntr
7
Press "F5 " para ejecutar la procedimiento. A1 en cada hoja de cálculo que contiene el nombre de la hoja.