' Module : Sheet3 Private Sub Worksheet_Change(ByVal Target As Range) If Target = "" Then Exit Sub If Target.Address = "$C$53" Then ActiveSheet.Name = Target End Sub