Aha! Managed to solve that one!

When looping through the shapes, it is possible to select multipl
items by using;

.Select False

instead of just;

.Select

which has the same effect as holding down the Ctrl button whil
selecting multiple shapes. e.g.



For Each shp In ActiveSheet.Shapes
If Left(shp.Name, 1) = "x" Then shp.Select False
Next shp

Selection.ShapeRange.Group.Select



Boici

--
Message posted from http://www.ExcelForum.com