How to select multiple shapes at once with vba?

[eduzs]

How to select multiple shapes at once with vba?
I tried something like
For/next
shapes(x).select
next
But it looks like he deselects the last selected shape, resulting only in the last selected.
Thanks

 

[mikerickson]

This is the syntax to select two shapes at one time.

ActiveSheet.Shapes.Range(Array("Oval 2", "Rectangle 1")).Select

If you want to loop, you can use Select if you set the Replace argument to False

Dim oneShape As Shape

For Each oneShape In ActiveSheet.Shapes
    oneShape.Select Replace:=False
Next oneShape

 

[eduzs]

Much simpler than I imagined.
Thanks!