ObjectData from Page Names?

[knowbodynow]

I want to rename objects from page names if the page name contains a space. Can anyone tell me why this isn't working:

Sub SetObjectNamesFromPageNames()
    
Dim p As Page
Dim s As Shape
    
    For Each p In ActiveDocument.Pages
        
        If InStr(p.name, " ") > 1 Then
 
            selectImagesLayer
            SelectAllImages
            
            Set s = ActiveSelection
            s.Group
            s.ObjectData("Name") = p.name
        End If
    
    Next p

End Sub

If I use virtually the same code and type in a name via a form then the group object does get an objectdata name assigned to it. What am I missing?

[shark]

Sub SetObjectNamesFromPageNames()
    
Dim p As Page
Dim s As Shape
    
    For Each p In ActiveDocument.Pages
        
        If InStr(p.name, " ") > 1 Then
            set s = p.Shapes.FindShapes(, cdrBitmapShape).Group
            ' or s = p.Layers('your image layer').Shapes.FindShapes(, cdrBitmapShape).Group
            s.Name= p.name
        End If
    
    Next p

End Sub

[knowbodynow]

Thanks but with that code I get an "Object variable or with block variable not set" error message for:

s.name = p.name

[knowbodynow]

Further investigation has revealed that there is a problem using p.name. if I put the page name into a string variable and use that it works. I suspect some bug with the version of X6 I am using (no service packs). Thanks for your help.