Necesito Ayuda Urgente, Con Excel

[angelm_mx]

HOLA A TODOS.

TENGO UN GRAN PROBLEMA, ELCUAL CONSISTE EN:

TENGO UN LIBRO DE EXCEL EL CUAL ESTOY UTUILIZANDO DESDE HACE MAS DE 1 AÑO, EL MISMO ESTA LLENO DE MACROS, PERO EL RETO AHORA ES HACER QUE CADA PESTAÑA DE ESTE LIBRO JALE UN NOMBRE DE CADA HOJA DE LA CELDA Y8.

HASTA AHORITA SOLO HE PODIDO HACER QUE CAMBIE LA PRIMER HOJA, PERO NO PUEDO HACER QUE SE APLIQUE EN TODAS.
LA FORMULA QUE ESTOY UTILIZANDO ES LA SIGUIENTE

Sub NombreHoja()
ActiveSheet.Name = Range("Y8").Value
End Sub

ESPERO ME PUEDAN AYUDAR YA QUE ESTOY MUY DESESPERADO Y NO LOGRO HACER QUE SE APLIQUE ENTODAS LAS HOJAS.

SALUDOS

[uzziber]

¿Y si en libro de trabajo haces una macro con un contador (ej. for..next) que vaya "activando" las hojas para cambiar el nombre?

Es una idea....

Saludos...

[abrahamvj]

Te respondi en el grupo de google.

Abraham

[mrocf]

No he leído la respuesta de Abraham, pero intenta con:

Código:

Sub CambiaNombreHoja()
For Each Hoja In Sheets
    Hoja.Name = Hoja.[Y8]
Next Hoja
End Sub 

Saludos

[abrahamvj]

Casi la misma:

http://groups.google.com/group/micro...ad5f4a5f102e4c

Abraham

[mrocf]

Ja... ja... ja...
El "casi" es tan pequeño que uno "casi" diría que es la mejor opción...

Saludos para todos.