Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Dim VNom As String
VNom = ActiveSheet.Range("A1")
ActiveSheet.Name = VNom
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 1) And (Target.Column = 1) Then Target.Parent.Name = Target.Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") <> "" Then [COLOR=darkslateblue][B]ActiveSheet[/B][/COLOR].Name = Range("A1")
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.address ="A1") And (Target.value<>"") Then Target.Parent.Name = Target.Value
End Sub