Hi CLR,

ActiveSheet.DrawingObjects.Select
ActiveSheet.Rectangles.Select
ActiveSheet.Lines.Select
ActiveSheet.Ovals.Select

To limit the collection to a range, I think that you would need to loop
through each, checking the intersection of the shape's TopLeftCell (and
possibly its BottomRightCell) with the range.

---
Regards,
Norman



"CLR" wrote in message
...
Hi All........
Is it possible with code, to be able to select multiple or ALL of the
shapes
or drawing objects on a sheet? How about "ranges" like "Line1:Line17", or
"Rectangle36:Rectangle56", or even "all the rectangles listed in G1:G17",
or
something like that?

Vaya con Dios,
Chuck CABGx3