Hi eedev,
You could test:

If ActiveSheet.OLEObjects.Count = 0 Then Exit Sub
With ActiveSheet.OLEObjects(1)
If .progID = "Package" And .OLEType = 1 Then
' Your code

End If
End With

MP

"eedev" a écrit dans le message de news:
...
In Word, there is a property DisplayAsIcon to indicate if an OleObject is
displayed as an icon or not. In Excel, PowerPoint and other office
applications, this property doesn't exist and I need to determine if the
whole OleObject is shown or if it is displayed as an icon. I've searched
and
seen the questioned asked, but no one ever replies. Any help would be
appreciated.