Hiding tabs that I need to link to

[JSeymore]

Hi guys,

I'm not too savvy on excel, but know the basics and maybe a little more than that. I am wanting to hyperlink the Item Numbers to the tabs with the same names. I want to hide these tabs but when I do hide them, I cannot open the link when I click on them anymore. I have seen some codes on how to fix this, but they are catered to the specific question and I have been unable to make it work for me. Can anyone see this picture, and help with the coding it would take to hide the cells and still be able to click on the hyperlinks and open the pages?

Thanks in advance!

 

[John_w]

Try this code in the ThisWorkbook module:

Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)

    Dim p As Long, targetSheet As String
    
    With Target
        p = InStr(1, .SubAddress, "!")
        If p > 0 Then
            targetSheet = Replace(Left(.SubAddress, p - 1), "'", "")
            Worksheets(targetSheet).Visible = True
            Worksheets(targetSheet).Select
            Worksheets(targetSheet).Range(Mid(.SubAddress, p + 1)).Select
        End If
    End With
    
End Sub