Link to another tab from cell name

[Chewyhairball]

Hi

I am looking to try and create a link to another tab in the worksheet. This tab is named in column E of my table.

What I would like is to be able to double click on any cell in a row and to be taken to the Tab named in column E for that row.
Eg. If i click anywhere on item 5 row I would like to be taken to the tab name in column E, in this case Tab3.....the data changes so static hyperlinks wont work.
thanks in advance

Item 1	0.1003	0	Subject1	Tab1	x	0	wrt	x
Item2	0.2005	0	Subject2	Tab2	x	0.1	wrt	x
Item 3	0.2009	0	Subject3	Tab1	r	0.1	X	X
Item4	1	1	Subject4	Tab1	r	0.1	X	X
Item5	0.2007	0	Subject5	Tab3	Ps	0.1	X	X
Item6	0.2	0	Subject6	Tab6	Ps	1	x	x
Item7	0.1018	0	Subject7	Tab7	Pf	0.2	x	ttr

 

[Joe4]

Right-click on the sheet tab name at the bottom of your screen, select "View Code", and paste this code in the VB Editor window that pops up.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Dim sh As String
    
'   Get sheet name from column E of active row
    sh = Cells(Target.Row, "E").Value
    
'   Check for value
    If sh = "" Then
        MsgBox "You have selected a row with no sheet name in column E", vbOKOnly, "ERROR!"
    Else
'       Jump to tab name in column E
        On Error GoTo err_chk
        Sheets(sh).Select
        On Error GoTo 0
    End If
    
    Exit Sub
    
err_chk:
    If Err.Number = 9 Then
        MsgBox "No sheet in workbook with name " & sh, vbOKOnly, "ERROR!"
    Else
        MsgBox Err.Number & ": " & Err.Description
    End If
    
End Sub

This should automatically do what you want as you double-click anywhere on that sheet.

 

[Chewyhairball]

Right-click on the sheet tab name at the bottom of your screen, select "View Code", and paste this code in the VB Editor window that pops up.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
    Dim sh As String
   
'   Get sheet name from column E of active row
    sh = Cells(Target.Row, "E").Value
   
'   Check for value
    If sh = "" Then
        MsgBox "You have selected a row with no sheet name in column E", vbOKOnly, "ERROR!"
    Else
'       Jump to tab name in column E
        On Error GoTo err_chk
        Sheets(sh).Select
        On Error GoTo 0
    End If
   
    Exit Sub
   
err_chk:
    If Err.Number = 9 Then
        MsgBox "No sheet in workbook with name " & sh, vbOKOnly, "ERROR!"
    Else
        MsgBox Err.Number & ": " & Err.Description
    End If
   
End Sub

This should automatically do what you want as you double-click anywhere on that sheet.

That is exactly what i wanted. Thank you Joe. Perfect!

 

[Joe4]

You are welcome.
Glad I was able to help!