I can select all objects in current layer with the following
but, how do I loop through all layers and add their shapes to Selection?
Dim shRGuide As ShapeRange, shRMaster As ShapeRange
Set shRGuide = ActivePage.Layers("Guides").Shapes.All
Set shRMaster = ActivePage.Layers("Desktop").Shapes.All
That works; thanks kindly!