Как создать условие запуска макроса

[fx59]

Доброго времени суток.
Я далек от звания "Великого писаря на VBA" к сожалению, но раньше на все мои вопросы отвечали поисковики. Но вот возникла проблема которую с их помощью мне решить не удалось.
Возникла необходимость запустить макрос при изменении названия текущего листа. То есть существует лист и он имеет какое-то название. И вот ручками я его правлю и по нажатию кнопки Enter (применение названия листа) я бы хотел увидеть как заработал макрос. Процедура Worksheet_Change как оказалось здесь не годится.

[EducatedFool]

Я вижу только 2 способа:

1) Пользовательская функция в ячейке, возвращающая имя листа,
и проверка имени листа (сравнение с предыдущим именем) при пересчёте этой UDF

Public PreviousSheetName As String

Function SheetName(ByRef cell As Range)
    Application.Volatile True
    SheetName = cell.Worksheet.Name
    If PreviousSheetName <> SheetName Then
        If Len(PreviousSheetName) Then MsgBox "Новое имя листа: " & SheetName
        PreviousSheetName = SheetName
    End If
End Function

Пример в файле: http://excelvba.ru/XL_Files/Sample__...__12-16-05.zip
(попробуйте переименовать лист)

2) Поискать решение в поисковике (они всё-таки отвечают, если правильно формулировать запрос)

Вот что удалось найти:
http://www.msofficegurus.com/post/Ex...ame-Event.aspx
http://stackoverflow.com/questions/1...event-in-excel

[fx59]

Благодарю что так быстро откликнулись, но...

1) Решать вопрос с помощью функции не хотелось бы... в первом приближении скажем.

2) Вариант по ссылке №1 почему то никак не реагирует на изменение названия листа. Хотя, как я понимаю, код должен выдать месажбокс.

Вариант по ссылке №2 вообще выдает ошибку компиляции "Only valid in object module" и тычет носом в "WithEvents" во второй строке. А каков результат выполнения сего кода?

з.ы. Правильно спросить у поисковика порой не так то просто. Жаль что английский для меня все равно что суахили. Рускоязычные интернеты никак не могли понять что я он них хочу.

[fx59]

Ну что, ни у кого нет никаких мыслей как сделать работоспособным этот или этот способ?

[kuklp]

А можно поинтересоваться - зачем? Я просто подозреваю, что Вам совсем не это нужно.
П.С. Ваш пример в виде файла поможет Вам быстрей получить решение.

[fx59]

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

А можно поинтересоваться - зачем?

Желаю чтобы в нужную мне ячейку записывался "текст" & название_листа & название_рабочей_книги (без расширения файла) автоматически после переименования листа. "Текст" статичный в ячейке, название_листа соответственно каждый раз меняется и название_рабочей_книги аналогично меняется.
Или есть стандартная функия для вставки названия рабочей книги с возможностью обрези лишних символов в строке? Если так то можно и посредством пользовательской функции решить вопрос.

[Hugo121]

Так ведь есть ЯЧЕЙКА()
А результат можно обрезать другими функциями.

[kuklp]

Я поэтому и писал про пример. Что есть - что хочу. Пока смотрите мой. Попробуйте переименовать любой лист.

[fx59]

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

Я поэтому и писал про пример. Что есть - что хочу. Пока смотрите мой. Попробуйте переименовать любой лист.

Не сразу получилось разобраться что к чему. Проблема тут в точности такая же как если в процедуру Worksheet_Change вставить код вписывающий всю информацию в нужную мне ячейку. Пока не произойдет пересчет код выполнен не будет. В случае если переименование листа будет последним действием то и наш код не отработает. Почему то очень хочется чтобы призывам к действию стало нажатие кнопки энтр при присвоении листу нового названия. Ввод названия листа через форму не предлагать

[fx59]

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

Так ведь есть ЯЧЕЙКА()
А результат можно обрезать другими функциями.

С этого места можно пожалуйста поподробнее?