hyperlinks

[sefraoui]

[COLOR=rgba(0, 0, 0, 0.75)]hi,i want a solution of my problem in VBA:I have a main page (a directory for all the sheets) which is hyperlinked to numerous sheets and all have hyperlinks to take me back to the main page and the sheet hide automaticaly . My problem is when i protect workbook (structure protection) the hyperlink dont work , an error occur : error run time 1004unable to set the visible property of the worksheet classthis is the code that i used:Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)LinkTo = Target.SubAddressWhereBang = InStr(1, LinkTo, "!")If WhereBang > 0 ThenMySheet = Left(LinkTo, WhereBang - 1)MySheet = Application.WorksheetFunction.Substitute(MySheet, "'", "")Worksheets(MySheet).Visible = TrueWorksheets(MySheet).SelectMyAddr = Mid(LinkTo, WhereBange + 1)Worksheets(MySheet).Range(MyAddr).SelectEnd IfEnd Sub[/COLOR]