Crear tantas hojas como celdas de un rango (+- 100)

Para Dante Amor

Puede ser una macro que me cree tantas hojas como celdas hay en el rango B1:B100 y que cada hoja tenga el nombre de cada una de las celdas

1 respuesta

Respuesta
1

Te anexo la macro.

Recuerda que el máximo número de caracteres para el nombre de una hoja es de 31.

Sub hojas()
'Por.Dante Amor
    Set h1 = ActiveSheet
    For i = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = h1.Cells(i, "B")
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas