Go to Worksheet with Name Corresponding to Cell Value

[angusfire]

Morning All; I am in need of some assistance in creating a hyperlink or a Worksheet_BeforeDoubleClick sub that will go to a worksheet with a name that is the same as the value of a referenced cell.

For example:
[TABLE="width: 500"]
<tbody>[TR]
[TD]A1[/TD]
[TD]B1[/TD]
[/TR]
[TR]
[TD]A2[/TD]
[TD]B2[/TD]
[/TR]
</tbody>[/TABLE]

Double clicking or having a hyperlink in a cell in column B that will display the worksheet that has the name of the value in the cell in column A. The resulting worksheet is already created but it would be nice to be able to have it unhidden only when activated and then hidden when another worksheet is activated.

Thanks in advance,

angusfire

 

[mdorey]

You can simply right click the cell that you want to add the hyperlink
then go to "Hyperlink"
then select "Place in This Document"
And set the sheet that you want to hyperlink

 

[angusfire]

Well that was simple enough. It still would be nice to have the linked worksheet only be unhidden when active and then hidden when another link is chosen.

Thanks again,

angusfire

 

[mdorey]

Take a look

https://analysistabs.com/excel-vba/hide-unhide-worksheets/

 

[angusfire]

This ended up working the best:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
 Dim shName As String
 If Left(Target.SubAddress, 1) = "'" Then
     shName = Mid(Target.SubAddress, 2, WorksheetFunction.Find("'", Target.SubAddress, 2) - 2)
 Else
     shName = Left(Target.SubAddress, WorksheetFunction.Find("!", Target.SubAddress) - 1)
 End If
 
 If Not Worksheets(shName).Visible Then
     Worksheets(shName).Visible = True
 End If
 
    For Each sh In ThisWorkbook.Sheets
     If sh.Name <> shName Then
         sh.Visible = False
     End If
    Next
    
    Worksheets("Exported Data").Visible = True
 
 With Worksheets(shName)
     .Activate
     .Range("A1").Select
 End With
 
 End Sub

 

[mdorey]

nice one... i don't know how to make those