Good Day Ladies and Gents.

I have a workbook with multiple sheets, some hidden and some not. I'm using the bit of code to link to a hidden sheet within the work book

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
This works fine if I have created a hyperlink by using the menu "Insert" the "Hyperlink" buttons. Unfortunately in this sheet I create hyperlinks using the cell contents using this function

=IF(D8="KIT",HYPERLINK("#"&CELL("address",INDIRECT(B8&"!C5")),"Click To View"),"")

for some reason that I cant fathom these links wont work to the same sheets as the fixed hyperlinks.

Any Ideas ?