Place the following code into the sheet where your hyperlink is (i.e. right click on the sheet tab, select view code).
If you cannot see the hidden sheet you wish to link to in the hyperlink dialogue, just enter it directly into the "Type the cell reference box". Example, if Sheet3 is hidden, type in Sheet3!A1 to link to cell A1 on Sheet3
Code:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim strSheet As String
strSheet = Left(Target.Parent, InStr(1, Target.Parent, "!") - 1)
strSheet = Sheets(strSheet).Name
Sheets(strSheet).Visible = True
Sheets(strSheet).Select
End Sub
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
