Group shapes and regroup with VBA

[HFLI]

Hi All,

Using VBA, I need to add 20 shapes called "S1", "S2", etc to a group
by using

..shapes.range(array("s1", "s2", "s3", "S4", .....)).group method.

This way works but it is very long. What if add 100 shapes to a group.

So, Is there other ways to create this array?

Thanks

 

[HFLI]

Sorry to post this. All I need to do is create a array MyArray and put
all shape names into MyArray. Then use
..shapes.range(MyArray).group method.

 

[CuriosityBug]

Hello,

Is there anything that needs to be placed before shapes.range.. I am getting an error stating "variable not found". Please help!