Macro conseguir lista de todas las hojas excel

Soy Ruben, necesito conseguir un listado con sus nombres de todas las hojas excel en la ultima hoja excel, que lo escriba en la columna a1 hacia abajo.

2

2 Respuestas

209.200 pts. Si de mis mayores gustos, mis disgustos han nacido,...

Prueba con esta macro

Option Base 1
Sub agregar_hojas()
contar = Worksheets.Count
ReDim matriz(contar)
x = 1
For Each hoja In Worksheets
    nombre = hoja.Name
    matriz(x) = nombre
    x = x + 1
Next hoja
Sheets(nombre).Select
Set datos = Range("a1").Resize(contar, 1)
Range(datos.Address) = WorksheetFunction.Transpose(matriz)
End Sub
4.703.150 pts. Sancho, si los perros ladran ...

Te anexo la macro:

Sub Nombres_Hojas()
    For i = 1 To Sheets.Count
        Sheets(Sheets.Count).Range("A" & i).Value = Sheets(i).Name
    Next
End Sub

[Sal u dos, no olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas