Необходимо добавить гиперссылку на новый лист.

[uralshans]

По средствам кнопки добавляется запись в таблицу типа (Название/Адрес/Телефон) и автоматически создается новый лист с названием из TextBox1 (т.е. с названием которое вносим сами в TextBox1).

Помогите программно добавить гиперссылку (в ячейке с названием) на новый автоматически созданный лист. Какой нужно прописать код у Кнопки "Добавить", и в каком месте.

[uralshans]

Private Sub CommandButton1_Click()
Dim lLastRow As Long
lLastRow = ActiveSheet.Cells(ActiveSheet.Rows. Count, "A").End(xlUp).Row + 1
ActiveSheet.Cells(lLastRow, "A").Value = Me.TextBox1.Value
ActiveSheet.Cells(lLastRow, "B").Value = Me.TextBox2.Value
ActiveSheet.Cells(lLastRow, "C").Value = Me.TextBox3.Value
Sheets.Add After:=Worksheets(Sheets.Count)
Sheets(Sheets.Count).Name = Me.TextBox1.Value
Sheets("Лист1").Select

//Куда вставить этот код... немного подредактировать
ActiveSheet.Hyperlinks.Add Anchor:=Range("Последняя заполненная ячейка"), _
Address:="Новый созданный лист", _
TextToDisplay:=Me.TextBox1.Value

[uralshans]

Кому интересно:

Код:
Private Sub CommandButton1_Click()
'Заносим данные в таблицу
Dim lLastRow As Long
lLastRow = ActiveSheet.Cells(ActiveSheet.Rows. Count, "B").End(xlUp).Row + 1
ActiveSheet.Cells(lLastRow, "B").Value = Me.TextBox1.Value
'Добавляем гиперссылку на лист с название листа из TextBox1
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'" & Me.TextBox1.Text & "'" & "!A1"
'Заносим данные в таблицу, ячейки C,D,E
ActiveSheet.Cells(lLastRow, "C").Value = Me.TextBox2.Value
ActiveSheet.Cells(lLastRow, "D").Value = Me.TextBox3.Value
ActiveSheet.Cells(lLastRow, "E").Value = Me.TextBox4.Value & "-" & Me.TextBox5.Value & "-" & Me.TextBox6.Value
'Создаем новый лист с названием из TextBox1
Sheets.Add After:=Worksheets(Sheets.Count)
Sheets(Sheets.Count).Name = Me.TextBox1.Value