Excel. Как сгруппировать два создаваемых объекта Shape? - VB

Формулировка задачи:

Как сгруппировать два создаваемых объекта Shape?

nnnnd()
 Shape1  Shape, Shape2  Shape

 ActiveCell
 Shape1 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, , )

 ActiveCell
 Shape2 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, , )

ActiveSheet.Shapes.Range(Array(Shape1, Shape2)).
    Selection.ShapeRange.Group.
 

Знаю, что не грамотно, но не знаю что изменить.

Решение задачи: «Excel. Как сгруппировать два создаваемых объекта Shape?»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> nnnnd()
<font color="blue">Dim</font> qwe1 <font color="blue">As</font> Variant
<font color="blue">Dim</font> qwe2 <font color="blue">As</font> Variant

<font color="blue">With</font> ActiveCell
qwe1 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, <font color="darkblue"><b>50</b></font>, <font color="darkblue"><b>50</b></font>).<font color="blue">Name</font>
<font color="blue">End</font> <font color="blue">With</font>

<font color="blue">With</font> ActiveCell
qwe2 = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, <font color="darkblue"><b>10</b></font>, <font color="darkblue"><b>10</b></font>).<font color="blue">Name</font>
<font color="blue">End</font> <font color="blue">With</font>

ActiveSheet.Shapes.Range(Array(qwe1, qwe2)).Group.<font color="blue">Select</font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        