Visual Basic para Aplicaciones - Nombre de hoja en excel

Hola a todos como puedo hacer yo para que al ingresar un nombre en una celda x automaticamente se me cambie el nombre de una hoja con el valor de dicha celda? Muchas Gracias....

Inserta este trozo de codigo en el evento Change de la hoja escogida

If Target.Address <> "$G$1" Then
Exit Sub
Else
Sheets(1).Name = Range("G1").Value
End If

cambia "$G$1" por la direccion de tu celda y el 1 de Sheets() por el indice de tu hoja

Muchas gracias....

Muchas gracias....