For example, this code only selects the last shape but I want to select all shapes that meet the criteria (then group them):
Set a = ActiveSheet
For each item in a.shapes
If item.top > 500 then item.select ‘add to a shaperange? how?
Next item