Имя листа в зависимости от ячейки

[bud-dy]

Хотелось бы, что бы имя листа совпадало с значением ячейки допустим А1.
Написал такой макрос.
Что я делаю не так?

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Cells = .Cells(1, 1) Then
Application.EnableEvents = False
ActiveSheet.Name = Cells(1, 1)
Application.EnableEvents = True
End If
End With
End Sub

[Maxx]

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Row = 1 And Target.Column = 1 Then
            
            If Target.Cells.Value = "" Then Exit Sub
            
            Application.EnableEvents = False
            ActiveSheet.Name = Target.Cells.Value
            Application.EnableEvents = True
        End If
End Sub

Причем Ваш вариант тоже прекрасно работает!
Только проверка на пустоту в ячейке должна быть обязательно!

[EducatedFool]

Можно чуть проще:

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Target.Address = [a1].Address Then Me.Name = [a1]
End Sub

[bud-dy]

Спасибо вам. А как сделать проверку на наличие листа с таким же именем и в таком случае изменить его на ИмяЛиста(2)?

[EducatedFool]

А как сделать проверку на наличие листа с таким же именем и в таком случае изменить его на ИмяЛиста(2)?

Сложно это всё - кода много.

А если лист с именем ИмяЛиста(2) уже существует? Присваивать имя ИмяЛиста(3)?

А если текст в ячейке содержит недопустимые для названия листа символы?
А если длина текста в ячейке больше 31 символа?

Если учитывать все эти нюансы, код разрастётся до 20 строк... Оно Вам надо?

[bud-dy]

Жаль. Но спасибо большое. Решил проблему немного по другому.