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