Que formula ocupar para renombrar varias hojas de excel a la vez utilizando el campo y8 de cada hoja?

[MGL19DF]

Tengo un libro de esxel que se llama Folios y este libro jala datos de
otro a su vez, pero del libro Folio necesito que cada hoja de jale
automaticamente un nombre que esta hubicado en la celda y8, utilice la
siguiente formula, pero solo se aplica a la primer hoja, he intentado
modificarla pero no tengo exito.
Me gustaria saber si alguien tiene por ahi o sabe la formula exacta
para que cada hoja de este libro sea renombrada automaticamente cada
vez que abra el documento.

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

si alguien me puede ayudar se lo agradecere muchisimo.

[Abraham]

La verdad tu explicacion esta un poquitin enredada, pero creo que esto
es lo que buscas:

Sub nombrarhoja()
Dim hoja As Worksheet
For Each hoja In Worksheets
hoja.Name = hoja.[Y8]
Next
End Sub

Abraham

[MGL19DF]

MUCHISIMAS GRACIAS ABRAHAM

NO TIENES IDEA DE CUANTO TE LO AGRADEZCO.

SALUDOS..

[Abraham]

De nada amigo.

Abraham