PESTAÑAS DE LAS HOJAS

Suponiendo que "una celda determinada" es B6:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$6" Then ActiveSheet.Name = [B6].Value
End Sub

Saludos desde Tenerife (España)
********************************************

Saludos desde Tenerife (Islas Canarias).
"Jose A." escribió en el mensaje
news:

Hola Grupo,
Tengo un libro con 5 hojas de calculo, mi pregunta es si se puede hacer
que
las pestañas de cada libro tomen el valor de una celda determinada, de tal
forma que si cambia el valor de esa celda cambia en la pestaña tambien.

Gracias anticipadas.
Salu2