Переименовать ярлыки Листов

[valerij]

Можно переименовать ярлыки Листов по имени в ячейки?
В А1, Лист1, пишем имя "хххх" и Лист1 переименовался в имя "хххх".

[IgorGO]

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

=ПРАВСИМВ(ЯЧЕЙКА("имяфайла");ДЛСТР(ЯЧЕЙКА("имяфайла"))-ПОИСК("]";ЯЧЕЙКА("имяфайла")))

[valerij]

Сообщение от IgorGO

а почему бы не сделать наоборот?

Не могу, в этой яч. месяц(ИЮЛЬ) ставится автоматом.
Хотя рекодер делает так:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 09.07.2009 
'

'
    Sheets("Лист1").Select
    Sheets("Лист1").Name = "zxc"
    Range("B30").Select
End Sub

[pivas]

Может я не понял суть проблемы, но

Sheets("Лист1").Name = [A1]

и никаких проблем

[EducatedFool]

Вставь этот код в модуль книги (называется модуль ЭтаКнига):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Address = [a1].Address Then
        On Error Resume Next: Sh.Name = Target.text
    End If
End Sub

[valerij]

Сообщение от pivas

Может я не понял суть проблемы, но

Sheets("Лист1").Name = [A1]

и никаких проблем

Так то, так, но у меня не работает, а если А1 это именнованная ячейка?
У меня так:
яч. К1 -(нм1) в ней 01.07.2009, но формат яч. ИЮНЬ

Игорь!
Все работает!!
Спасибо.

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")