Hyperlink to Hidden Sheets Not Working

[millernm]

Hello all,

I'm currently making an excel spreadsheet that acts as a "dashboard" to useful information.

It currently contains over 200 worksheets and I would like for all of them to remain hidden unless a hyperlinked object is clicked on the "Main Menu" that opens them up.

Excel will not open hidden sheets when a hyperlink is clicked, unless a macro is written to do so, which I remain deficent in creating!

If someone could help it would be greatly appreciated!

*All of my hyperlinks to the worksheets are "pictures" or "objects" verus just text.

 

[XL&ME]

Take a look at MrExcel Podcast #1729 Learn Excel from MrExcel – “Hyperlink to a Hidden Worksheet” – Podcast1729 | Learn Excel from MrExcel. If you run into a problem, post your code and someone will more VBA expertise will help you out.

 

[millernm]

I have used this, but unfortunately the code generated below does not seem to work with "non-text" hyperlinks such as objects or pictures acting as such.

LinkTo = Target.SubAddress</SPAN>
WhereBang = InStr(1, LinkTo, "!")</SPAN>
If WhereBang > 0 Then</SPAN>
MySheet = Left(LinkTo, WhereBang - 1)</SPAN>
Worksheets(MySheet).Visible = True</SPAN>
Worksheets(MySheet).Select</SPAN>
MyAddr = Mid(LinkTo, WhereBange + 1)</SPAN>
Worksheets(MySheet).Range(MyAddr).Select</SPAN>
End If</SPAN>