MummyButtons
New Member
- Joined
- Nov 26, 2014
- Messages
- 1
Hi There, I'm creating a Dashboard with 30+ Hidden sheets and I'm trying to create a Hyperlink from the Dashboard page to the relevant hidden sheet. I have been watching Mr Excel #1729 however, when it says to "watch" target, I am unable too, I don't get the + sign to open it up. Therefore, I'm not sure if the "SubAddress" is correct.
This is the code I'm using...
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress
WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Left(LinkTo, WhereBang - 1)
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAddr = Mid(LinkTo, WhereBang + 1)
Worksheets(MySheet).Range(MyAddr).Select
End If
End Sub
I would be more than happy to Email my file to someone if they think they can help. I've spent a lot of time trying to get this right and it's driving me crazy, would LOVE some help please.
Thank you in anticipation...
This is the code I'm using...
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
LinkTo = Target.SubAddress
WhereBang = InStr(1, LinkTo, "!")
If WhereBang > 0 Then
MySheet = Left(LinkTo, WhereBang - 1)
Worksheets(MySheet).Visible = True
Worksheets(MySheet).Select
MyAddr = Mid(LinkTo, WhereBang + 1)
Worksheets(MySheet).Range(MyAddr).Select
End If
End Sub
I would be more than happy to Email my file to someone if they think they can help. I've spent a lot of time trying to get this right and it's driving me crazy, would LOVE some help please.
Thank you in anticipation...