Nikitos79, пример с макросом (нужен формат книги, поддерживающий макросы).
[vba]Код
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
If Target.SubAddress = "" Then: Exit Sub
Dim s As Object
Set s = Target.Parent
n$ = s.Offset(, -1).Text
Application.ScreenUpdating = False
For Each Sh In ActiveWorkbook.Sheets
nt = Sh.Name
If Sh.Name <> "Расстанавливать" Then
If Sh.Name = n Then
Sh.Visible = True
Else
If Sh.Visible Then
Sh.Visible = False
End If
End If
End If
Next Sh
Application.ScreenUpdating = True
Worksheets(n).Activate
Range(Names(Target.SubAddress).RefersToRange.Address).Select
End Sub
[/vba]