Macro para cambiar el nombre de los módulos

[Lucky11]

Hola,

Muchas gracias. Esta muy bien. Habia conseguido hacer algo parecido pero este hace varios archivos de excel solo haciendo click en un boton.

Lo he probado y funciona bien, pero tengo que cambiar el nombre en un monton de archivos y el codigo lo tengo protegido con contraseña. He probado utilizar sendkeys pero no puedo utilizar el codigo que adjunto y luego el de cambiar el nombre de los modulos en una sola funcion.
Adjunto el codigo por si alguien puede ayudarme.


Sub NameChange()

SendKeys ("%{F11}" + "^{r}")

SendKeys ("{UP}")
SendKeys ("{P}")
SendKeys ("{T}")
SendKeys ("{E}")
SendKeys ("{2}")
SendKeys ("{0}")
SendKeys ("{0}")
SendKeys ("{6}")

SendKeys ("{ENTER}")


On Error Resume Next

With ActiveWorkbook.VBProject

.VBComponents("Módulo1").Name = "Modulo1"
.VBComponents("Módulo2").Name = "Modulo2"
.VBComponents("Módulo3").Name = "Modulo3"
.VBComponents("Módulo4").Name = "Modulo4"
.VBComponents("Módulo5").Name = "Modulo5"
.VBComponents("Módulo6").Name = "Modulo6"
.VBComponents("Módulo7").Name = "Modulo7"
.VBComponents("Módulo8").Name = "Modulo8"
.VBComponents("Módulo9").Name = "Modulo9"
.VBComponents("Módulo10").Name = "Modulo10"

End With

End Sub