Hi,

I found the following bug, and hope that someone from Microsoft will read
this.

Create two shapes (two rectangles for example), say R1, then R2

If you select R1, then R2, and then run some code to get the name of the
objects:
Set myobj = Selection.Item(1)
MsgBox myobj.Name
Set myobj = Selection.Item(2)
MsgBox myobj.Name
you'll see R1, then R2

If you select R2, then R1, and then run some code to get the name of the
objects:
Set myobj = Selection.Item(1)
MsgBox myobj.Name
Set myobj = Selection.Item(2)
MsgBox myobj.Name
you'll see R2, then R2

I believe this is a bug. If not, sorry.

Regards,

Mr T