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

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.