Renombrar la hoja 1 de un libro con el nombre del libro

Necesito mediante una macro Renombrar la Hoja 1 de un libro con el nombre de dicho libro.

1 respuesta

Respuesta
1

H o l a:

Espero que todavía te sirva:

Sub RenombrarHoja()
'Por.Dante Amor
    nombre = ThisWorkbook.Name
    nombre = Replace(nombre, ".xlsm", "")
    Sheets("Hoja1").Name = nombre
End Sub

' : )
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas