Se puede Renombrar una hoja excel en base a una celda específica con una macro y que sea aplicable a cada hoja del libro?

RENOMBRAR HOJA ( LIBRO PERSONA

Conseguí dos códigos y luego de modificarlos logré que hicieran lo que andaba buscando

  Sub renombrar()   

                   ActiveSheet.Range("A8").Activate

                  Do While Not IsEmpty(ActiveCell)

                    Nombre_Hoja_Nueva = ActiveCell.Offset(0, 8).Value

                ActiveSheet.Name = Range("A8")

              Set Target = Range("A8")

    If Target = "" Then Exit Sub

                  Exit Sub         

                  Loop

End Sub

con este código se debe crear un botón para que cambie el nombre de la pestaña 

Otra forma pero directamente en la pestaña de la hoja, click derecho "VER CODIGO " Y pegar lo siguiente :

RENOMBRAR  (  HOJA DE RESULTADOS  )

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set Target = Range("A8")

If Target = "" Then Exit Sub

Application.ActiveSheet.Name = Range("A8")

De esta forma automáticamente cambia el nombre al cambiar el valor de la celda.

Solucionada mi inquietud

¡Gracias! Por responder tan rápido... Los nombres los empiezo a colocar a partir de la cuarta hoja..... Con la instrucción que me diste,  las acción de detiene en la última orden (se colorea de amarillo), hay que depurar. La orden debe ser para la hoja que este activa.... Gracias de nuevo