Tabnaam bepalen aan de hand van invoer in een cel

[malibuman]

Is het mogelijk de naam van het tabblad te wijzigen aan de hand van de invoer
in een bepaalde cel. vb ik vul in d5 in : Team1 waarbij automatisch de naam van dit tablad verandert in Team 1

Alvast bedankt

 

[malibuman]

Const Cel As String = "C3"

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = Range(Cel).Address And Target <> "" Then
If Sh.Name <> Target.Value Then Sh.Name = Target.Value
End If

End Sub

Al gevonden sorry voor de vraag