Sub test_ok()
Dim tab_SHP() As Variant, i&, shp As Shape
With ActiveSheet
ReDim tab_SHP(1 To .Shapes.Count)
For i = 1 To .Shapes.Count
If .Shapes(i).AutoShapeType = 1 Then ' 1=Rectangle
tab_SHP(i) = .Shapes(i).Name
End If
Next
Set shp = .Shapes.Range(tab_SHP).Group
End With
shp.Name = "TEST"
End Sub