ActiveSheet.Shapes.Range(Array("Rectangle 5", "Rectangle 6", "Rectangle 7")).Select
    Selection.ShapeRange.Group.Select

  Variant Shapes; 
  GetProperty Get_ActiveSheet("ActiveSheet");
  GetProperty Get_Shapes("Shapes");
  Function Range("Range");
  Shapes = WB.Exec(Get_ActiveSheet).Exec(Get_Shapes);
  ...
  Shapes.Exec(Range<<...) <<--  // Хмм ... 
  ...

 Variant Shapes,Item,Group;

 Shapes = CIAWorkBook.Exec(PropertyGet("ActiveSheet")).Exec(PropertyGet("Shapes"));
 Shapes.Exec(Function("Item")<< 1 ).Exec(Function("Select")<<True);
 Shapes.Exec(Function("Item")<< 2 ).Exec(Function("Select")<<False);
 Shapes.Exec(Function("Item")<< 3 ).Exec(Function("Select")<<False);
 ... 
 Group = CIAWorkBook.Exec(PropertyGet("Application")).Exec(PropertyGet("Selection")).Exec(PropertyGet("ShapeRange")).Exec(Function("Group"));
 ...