Add Hyperlink , "Place In this Document" and "ScreenTip, Text"
Sub ScreenText()
ActiveSheet.Shapes.Range(Array(Application.Caller)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="", ScreenTip:=Application.Caller
End Sub