Where do I find this "Double-click on the ThisWorkbook object in the project
explorer. "

"Vergel Adriano" wrote:

Assuming that Sheet1 is where you have your hyperlinks and just to give an
example, let's say A1 links to Sheet2!A1, A2 links to Sheet3!A1.

1. Right-Click on the Sheet1 tab, click on View Code and paste this code:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.EnableEvents = False
Select Case Target.Range.Address
Case "$A$1"
Sheet2.Visible = xlSheetVisible
Target.Follow
Case "$A$2"
Sheet3.Visible = xlSheetVisible
Target.Follow
End Select
Application.EnableEvents = True
End Sub

2. Double-click on the ThisWorkbook object in the project explorer. Paste
this code:

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
If Sh.Name < "Sheet1" Then
Sh.Visible = xlSheetVeryHidden
End If
End Sub



"Josie" wrote:

Please can you help?
I have a spreadsheet with 13 work sheets I want to hide 12 of them so only
one is visable but then use hyperlinks to access the hidden pages. I can set
up the hyperlinks, but then as soon as I hide the page the link does not work
any more.
Thanks