Need macro to unhide a hidden sheet which is hyperlinked to a text using =HYPERLINK (vlookup) function

[Suhas r]

Hello everyone, needed ur help for a macro to unhide a hidden sheet which hyperlinked to a word( D1) usin =HYPERLINK (VLOOKUP) formula, is used below macro but it will not work for =HYPERLINK, please help me

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