I made a macro that does several things then groups the selection but it ends up in this state (round selection marks) whereby requiring me to click off the selection then back on it. tried
ActiveDocument.refresh
ActiveWindow.refresh
agree with Mek, you need to select not all shapes in the group, but the group itself
...
set sGroup = srAllShapes.Group
sGroup.AddToSelection