jbf99 respondió:
Con el botón derecho del ratón pulsa sobre el nombre de la hoja y selecciona Ver código, en la hoja de código pega: Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next With ActiveSheet .Name = .Range("$E$1").Value End With End Sub