On this page
Sub CreateLinkToSheet()
Dim c As Range
For Each c In Selection
' MsgBox c.Value
ActiveSheet.Hyperlinks.Add Anchor:=c, Address:="", _
SubAddress:=c.Value & "!A1", TextToDisplay:=c.Value
Next c
End Sub
How to run: Select the cells to create link and run the macro