I want to group all objects in a page. I used this code:
Sub Group()
Set sr = ActivePage.Shapes.Allsr.group
End sub
The problem I have is that it group guides along with the object. I don't want the guides the be grouped with it
If you have only one layer you can use
ActivePage.ActiveLayer.Shapes.All