Set the tool tips of all hyperlinked shapes in Excel to the text contained in the shape (thereby replacing the default tool tip, which includes the document file path)

gistfile1.vb

Sub AddScreenTipsToHyperlinkedShapesUsingShapeText()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.Type = 1 Then
                On Error Resume Next
                shp.Hyperlink.ScreenTip = shp.OLEFormat.Object.ShapeRange.TextFrame.Characters.Text
            End If
        Next shp
    Next ws
End Sub