nach Eingabe eines Namens in die Zelle B 6 soll sich der Blattname in die Bezeichung aus B 6 ändern. Hab´s mit dem Change Ereignis und
ActiveSheet.Name = ("B6")
versucht, klappt aber nicht.
Vielen Dank für die Hilfe
KlausK
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then ActiveSheet.Name = [B6].Value
End Sub