Find meshes in groups

How to remove from selection objects that can contain meshes inside group, or inside powerclip?

dim h as shape, s as shape

ActiveLayer.Shapes.All.CreateSelection

For Each s In ActiveSelection.Shapes

'Set h = s.Shapes.FindShapes(Type:=cdrMeshFillShape) 'something like this, but this not working.
'If Not h Is Nothing Then s.RemoveFromSelection

next

Parents
No Data
Reply Children
No Data