Как поменять название листа, с сохранением ссылки в оглавлении

[mmm2007]

Добрый день. Как поменять название листа в прайсе, с сохранением ссылки в оглавлении?
Если просто меняю название листа, пропадает активная ссылка в оглавлении.
Заранее огромное спасибо за помощь!

[Владимир .]

Безопаснее руками все изменить.
Но если вы уверены, что последовательность листов в СОДЕРЖАНИИ соответствует последовательности самих листов ...

Код Выделить Развернуть

Sub Макрос()
Application.DisplayAlerts = False
For l = 2 To ActiveWorkbook.Worksheets.Count
   
    Range("A" & l - 1).Select
    NameL = ActiveCell
    NameSH = Worksheets(l).Name
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        NameSH & "!A1", TextToDisplay:=NameL
    Worksheets(l).Name = NameL
       
Next
End Sub


[mmm2007]

Владимир, спасибо огромное! Все получилось!