Trouble Grouping Label and Shape

[MINCUS1308]

Im trying to group a OLE Label and a Shape...

'GROUP THE SHAPE AND LABEL  
ActiveSheet.Shapes.Range(Array(ShapeName, LabelName)).Select   
Selection.ShapeRange.Group.Select

and im getting the error:
"The ShapeRange object must contain at least two items."

My normal debugging isnt fixing it, anyone have a suggestion?

[MINCUS1308]

I replaced the above lines with the following and its working fine?!?

ActiveSheet.Shapes.Range(Array(ShapeName, LabelName)).Group