expression.SourceName
expression Required. An expression that returns a LinkFormat object.
Remarks
This property doesn't return the path for the source file.
Example
This example returns the path and name of the source file for any shapes on the active document that are linked OLE objects.
For Each s In ActiveDocument.Shapes
If s.Type = msoLinkedOLEObject Then
Msgbox s.LinkFormat.SourcePath & "\" _
& s.LinkFormat.SourceName
End If
Next s