Hi Claude,

For grouped shapes .Type = 6. (or msoGroup)
Refer to "Type Property" in the VBA Help files then look for "Shape,
ShapeRange"

Also, selecting a shape then typing...

?Selection.ShapeRange.Type

in the Immediate Window of the VBA Editor, then pressing Enter, will
return the Shape's Type value.

Ken Johnson