Tengo esta macro que funciona perfectamente, que renombra las hojas según el listado de nombres de la hoja "AA_Nombres":
Sub renombra_hoja()
Dim Hoja As Worksheet
Dim Fila As Long
Fila = 5
For Each Hoja In Worksheets
Hoja.Name = Cells(Fila, 3)
Fila = Fila + 1
Next
End Sub
¿Se podría modificar la macro para que en vez de renombrar la hoja, pegue el nombre en la celda A2 (por ejemplo)?
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Hola a tod@s,
Tengo esta macro que funciona perfectamente, que renombra las hojas según el listado de nombres de la hoja "AA_Nombres":
Sub renombra_hoja()
Dim Hoja As Worksheet
Dim Fila As Long
Fila = 5
For Each Hoja In Worksheets
Hoja.Name = Cells(Fila, 3)
Fila = Fila + 1
Next
End Sub
¿Se podría modificar la macro para que en vez de renombrar la hoja, pegue el nombre en la celda A2 (por ejemplo)?