Buenas quisiera conocer algún macro que me permita cambiar los nombres de todas las hojas de excel que tengo, sería:

2.5.28 a 2.5.C.1

2.5.29 a 2.5.C.2

2.5.30 a 2.5.C.3 ..... y así sucesivamente

Muchas gracias!

Es para cambiar el nombre de la hoja por el valor que tengas en una celda en este caso es A1:

Range("A1").Select

cadena = (ActiveCell.FormulaR1C1)

Sheets("Hoja1").Select

Sheets("Hoja1").Name = cadena

end sub

mas pequeña

Sub NombreHoja()

ActiveSheet.Name = Range("A1").Value

End Sub

Esta macro cambia el nombre en base a una lista generada en la hoja 1 en un total de 100 hojas y empezaria a partir de la hoja 2 tomando los datos del rango a1

Sub CambiarNombre()

For i = 1 To 100

Sheets(i).Name = Sheets(2).Range("A1").Offset(i, 0).Value

Next i

End Sub

Si no mira por aca

https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-renombrar-hojas-al-mismo-tiempo-7121/

Saludos

Muchisimas gracias!!!

No entiendo, a mi no me funciona (desde la hoja 3 en mi caso):

Sub CambiarNombre()

For i = 1 To 100

Sheets(i).Name = Sheets(3).Range("A1").Offset(i, 0).Value

Next i

End Sub

 

Por cierto, los enlaces ya no funcionan. Será por la migración:  https://www.ayudaexcel.com/foro/macros-programacion-vba-10/solucionado-renombrar-hojas-al-mismo-tiempo-7121/

clientes.rar