Как можно отловить изменение имени книги? - VB

Формулировка задачи:

Доброе время суток!
Если такая возможность, чтобы после того, как было сделано "Сохранить как...", на выполнение запустилась определенная
процедура... Ну что-то типа AfteSave ?

Решение задачи: «Как можно отловить изменение имени книги?»

textual
                            Листинг программы 
                        

                            <font color="blue">Dim</font> OldName <font color="blue">As</font> <font color="blue">String</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Workbook_BeforeSave(<font color="blue">ByVal</font> SaveAsUI <font color="blue">As</font> <font color="blue">Boolean</font>, Cancel <font color="blue">As</font> <font color="blue">Boolean</font>)
  OldName = ThisWorkbook.<font color="blue">Name</font>
  Application.OnTime Now, ThisWorkbook.CodeName & <font color="teal">".CheckName"</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> CheckName()
  <font color="blue">If</font> ThisWorkbook.<font color="blue">Name</font> <> OldName <font color="blue">Then</font> MsgBox <font color="teal">"Name was changed!"</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        