Ввод значения в ячейку=новый лист (существующий макрос)

[w00t]

Помогите, пожалуйста.

Есть два макроса (переименовать лист по вводу в ячейку и обратное действие) - располагаются в исходном коде листа "Оглавление"

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub 
    Worksheets(Target.Row).Name = Target.Value 
    Hyperlinks.Add anchor:=Target, Address:="", _ 
    SubAddress:="'" & Target.Value & "'" & "!A1" 
    Range("A1:A100").Select 
    With Selection.Font 
        .Bold = True 
        .Name = "Verdana" 
        .Size = 10 
    End With 
    ActiveCell.Select 
End Sub 
 
Private Sub Worksheet_Activate() 
    Application.EnableEvents = False 
    Call SheetList 
    Application.EnableEvents = True 
End Sub

Есть макрос - который создает меню/оглавление - отдельный модуль

Sub SheetList() 
    Dim sheet As Worksheet 
    Dim cell As Range 
    With ActiveWorkbook 
        For Each sheet In ActiveWorkbook.Worksheets 
            Set cell = Worksheets(1).Cells(sheet.Index, 1) 
            .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", _ 
            SubAddress:="'" & sheet.Name & "'" & "!A1" 
            cell.Formula = sheet.Name 
        Next 
    End With 
    Range("A1:A100").Select 
    With Selection.Font 
        .Bold = True 
        .Name = "Verdana" ' указать шрифт
        .Size = 10 ' Размер шрифта
    End With 
    Range("A1:C1").Interior.Color = RGB(102, 102, 153) 
    Range("A1:C1").Font.Color = RGB(255, 255, 255) 
     'Range("A" & Range("A1").End(xlDown).Row + 1).Select
    ActiveCell.Select 
End Sub

Суть в том, что требуется одно действие... если создаю новую запись в ячейке пустой диапазона - создается новый лист с тем же именем... Я не понимаю, как это реализовать.
И при удалении данных ячейки макрос ругается.. (например - удаление листа - удаление левой записи в ячейке оглавления)

Есть у меня свои мысли по этому - последнее сообщение http://planetaexcel.ru/techniques/3/60/#741 Но я только изучаю vba, буду признателен кто подскажет что и как я делаю не так... Что нужно сделать... И как.