Help with Excel 2011 for a mac

[joudeh2]

I have hidden sheets that I want to 'unhide' once a hyperlink is clicked but can not figure out the code needed on each sheet.

I've tried this code I found online but it's not working for me.

Please help!

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
shtname = Left(Target.SubAddress, WorksheetFunction.Find(“!”, Target.SubAddress) – 1)
Sheets(shtname).Visible = True
Me.Visible = xlSheetHidden
End Sub

 

[shg]

Welcome to the board.

Try this in the ThisWorkbook module:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
    Worksheets(Left(Target.SubAddress, InStrRev(Target.SubAddress, "!") - 1)).Visible = xlSheetVisible
    Sh.Visible = xlSheetHidden
End Sub

 

[joudeh2]

Thanks for your answer but this is still not working for me.

I am placing the code in the "General and Declarations" portion of the VBA project for the sheet with the pictures that are hyperlinked.

Is that the correct location?

Thank you very much for your help!

 

[shg]

No, it goes in the ThisWorkbook module so it works for all sheet.

 

[joudeh2]

Still not working.

Does it matter that the hyperlinks are actually pictures?

 

[shg]

It does -- the FollowHyperlink event doesn't trigger for pictures or hyperlinks created with the HYPERLINK function. I don't have another suggestion, unless you want to hide all other sheets when a new sheet activates.