Grouping Shapes

I am trying to group all shapes on a sheet with the fiollowing code and getting the error:

"The Index into the specified collection is out of bounds"

Private Sub CommandButton1_Click()

Dim MyObject As OLEObject
Dim myobjectname As String
Dim myArr() As String

counter = -1

For Each MyObject In Sheets("Exhibit").OLEObjects
counter = counter + 1
ReDim Preserve myArr(0 To counter)
myArr(counter) = MyObject.Name
Next

ActiveSheet.Shapes.Range(Array(myArr)).Select
Selection.ShapeRange.Group.Select

End Sub

Completely untested, Lara, try this:

Please Login or Register  to view this content.

now I get the error:

The specified parameter has an invalid value

Interesting; it really wants a variant:

Please Login or Register  to view this content.

Great, thanks! OK, now one more little hitch, I also have a picture on the sheet with a constant name, say "Picture1". This is not being included in the grouping since it is not an Ole Object. Is there any way to tack that onto the array after it loops through all the objects. I tried

avName = avName & "Picture1"

but that does not work.

No, that won't work; you'd have to resize the array and add it.

Hmmm, I am afraid that is unfamiliar to me, what is the code to resize an array and add the picture?

ok, I have been trying some different code, but still running into issues, here is what I have now for adding that extra picture in and I am getting the error:
"The item with the specified name wasn't found"

Dim oOLE As OLEObject
Dim avName() As Variant
Dim iCtr As Long
Dim iCtrNew As Long

For Each oOLE In Sheet1.OLEObjects
iCtr = iCtr + 1
ReDim Preserve avName(1 To iCtr)
avName(iCtr) = oOLE .Name
Next

iCtrNew = iCtr + 1
ReDim Preserve avName(1 To iCtrNew)
avName(iCtrNew) = avName(iCtr) & "Picture1"

ActiveSheet.Shapes.Range(avName).Select
Selection.ShapeRange.Group.Select

I Got it!! Wow, I was so close before. shg, thanks for all your help. Here is my final code that works:

Dim oOLE As OLEObject
Dim avName() As Variant
Dim iCtr As Long
Dim iCtrNew As Long

For Each oOLE In Sheet1.OLEObjects
iCtr = iCtr + 1
ReDim Preserve avName(1 To iCtr)
avName(iCtr) = oOLE .Name
Next

iCtrNew = iCtr + 1
ReDim Preserve avName(1 To iCtrNew)
avName(iCtrNew) = "Picture1"

ActiveSheet.Shapes.Range(avName).Select
Selection.ShapeRange.Group.Select