You can use the typeName method
For Each obj In ActiveSheet.OLEObjects
a = TypeName(obj.Object)
Next obj
--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=182048
Microsoft Office Help