Group Objects with Macro

I want to group all objects in a page. I used this code:

Sub Group()

Set sr = ActivePage.Shapes.All
sr.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