Dar el valor de varias celdas al nombre de varias hojas

Hola:
Estoy trabajando en un libro de excel que tiene varias hojas.
Me interesa asignar el valor de 10 celdas, que están en la misma hoja, al
nombre de 10 hojas del libro. El valor de las celdas es texto. El fin que al
introducir un valor o texto en las celdas cambie, de modo automático, el
nombre da la hoja que tenga asociada en ese caso.
Lo he intentado con las propiedades de la hoja en la parte del nombre pero
no funciona. Creo hay que hacer una macro en vb.
Gracias.

Hola Javi.

Suponiendo el rango con los posibles nombres en A1:A10.

En el modulo de la hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then _
Sheets(Target.Row).Name = Target.Value
End Sub


Saludos: Antonio.
************************************
"Javigonpe" escribió en el mensaje
news:
> Hola:
> Estoy trabajando en un libro de excel que tiene varias hojas.
> Me interesa asignar el valor de 10 celdas, que están en la misma hoja, al
> nombre de 10 hojas del libro. El valor de las celdas es texto. El fin que al
> introducir un valor o texto en las celdas cambie, de modo automático, el
> nombre da la hoja que tenga asociada en ese caso.
> Lo he intentado con las propiedades de la hoja en la parte del nombre pero
> no funciona. Creo hay que hacer una macro en vb.
> Gracias.

Hola Antonio:

If Not Application.Intersect(Target, "Hoja1!A1")) Is Nothing Then _
Sheets(Target.Row).Name = Target.Value
End Sub

"AnSanVal" escribió:

Hola Javi.

Suponiendo el rango con los posibles nombres en A1:A10.

En el modulo de la hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then _
Sheets(Target.Row).Name = Target.Value
End Sub


Saludos: Antonio.
************************************
"Javigonpe" escribió en el mensaje
news:
> Hola:
> Estoy trabajando en un libro de excel que tiene varias hojas.
> Me interesa asignar el valor de 10 celdas, que están en la misma hoja, al
> nombre de 10 hojas del libro. El valor de las celdas es texto. El fin que al
> introducir un valor o texto en las celdas cambie, de modo automático, el
> nombre da la hoja que tenga asociada en ese caso.
> Lo he intentado con las propiedades de la hoja en la parte del nombre pero
> no funciona. Creo hay que hacer una macro en vb.
> Gracias.

Hola Antonio:

Muchas gracias.
Y en caso de que no fuese un rango. Es decir, si quiero dar nombre a las
hojas a partir de celdas sueltas, seria este el código para el caso de que la
celda sea la A1 de la hoja1:
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, "Hoja1!A1")) Is Nothing Then _
Sheets(Target.Row).Name = Target.Value
End Sub

Gracias por el tiempo ençmpleado.