Автопереименование листа при вводе в ячейку и обратная процедура

[w00t]

Сам макрос:

01	Sub SheetList()
02	   Dim sheet As Worksheet
03	   Dim cell As Range
04	   With ActiveWorkbook
05	      For Each sheet In ActiveWorkbook.Worksheets
06	         Set cell = Worksheets(1).Cells(sheet.Index, 1)
07	         .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:="'" & sheet.Name & "'" & "!A1"
08	         cell.Formula = sheet.Name
09	      Next
10	   End With
11	End Sub

Затем правой кнопкой мыши по ярлычку листа с оглавлением - Исходный текст, вставляю код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
    Worksheets(Target.Row).Name = Target.Value
    Hyperlinks.Add anchor:=Target, Address:="", _
          SubAddress:="'" & Target.Value & "'" & "!A1"
End Sub

Соответственно, если в A1:A10 меняю текст в ячейке - изменяется и текст в названии листа

И третий макрос, при изменении названия листа - меняется текст ячейки

Private Sub Worksheet_Activate()
Dim iList
Sheets("Оглавление").Select
Range("A1:A10").Select
Selection.ClearContents
For Each iList In ActiveWorkbook.Worksheets
   With Worksheets(1).Cells(iList.Index, 1)
         .Hyperlinks.Add Anchor:=.Item(1), Address:="", _
          SubAddress:="'" & iList.Name & "'" & "!A1"
         .Formula = iList.Name
    End With
Next
    Sheets("Оглавление").Select
End Sub

Последние два вместе не работают, кокретно, если перехожу с другого листа на лист оглавление - оно очищается и Worksheets(Target.Row).Name = Target.Value выдает ошибку. как корректно заставить работать:

1. автоочистка оглавления от "хвостов"
2. создание оглавления
3. реагирование на изменение текста в ячейке "Оглавления" и переименовывание листа
4. переименовывание листа с автопереименованием ячейки в листе "Оглавление".

[Скрипт]

w00t, я так понял, что никакого Excel-события не возникает при переименовании листа. Поэтому можно использовать макрос для переименования листов: нажимаете кнопку, появляется окно "InputBox", вводите имя листа и заодно ещё какой-нибудь код выполняется.