Try something like this

Sub test()
Dim ot As XlOLEType
Dim ole As OLEObject

For Each ole In ActiveSheet.OLEObjects
ot = ole.OLEType

If ot = xlOLELink Then
Debug.Print ole.Name, ole.TopLeftCell.Address, ole.SourceName
ElseIf ot = xlOLEEmbed Then
Debug.Print ole.Name, ole.TopLeftCell.Address, ole.progID, " Embedded"
End If

Next
End Sub

Press Ctrl-g to see debug results in the Immediate window.

Regards,
Peter T

"ldb" wrote in message
...
I have a workbook with 40 +/- embedded files (Word, Excel, eMail,
PowerPoint)

I have been able to able to identify the Objects as "Object #" and
BottomRightCell address.

I appreciate any thoughts as to how get a list of the actual names of the
embedded files.

Thanks.

ldb