excel vba hyperlinks add

Ответ от Вадим Окладников[гуру]
Проверял у себя, работает Sub content() Dim w As Worksheet Dim i As Integer i = 0 For Each w In Worksheets Worksheets(1).Hyperlinks.Add Anchor:=Worksheets(1).Range(\"A2\").Offset(i), Address:=\"\", _ SubAddress:=w.Name + \"!A1\", TextToDisplay:=w.Name i = i + 1 Next w End Sub