When referencing a shape by it's name or otherwise, is the .Name prperty
locked so that it cannot be set?  I have some code similar to this:

intCurPageNum = ActiveDocument.ActiveView.ActivePage.PageIndex
For Each shpOverlayShape in ActiveDocument.ActiveView.ActivePage
   strShapeName = Left(shpOverlayShape.Name, 6)
   Select Case strShapeName
         Case "Graphi"
                shpOverlayShape.Name = "GraphicNumber" & CStr(intCurPageNum)
... Lines omitted for brevity ...
   End Select
Next shpOverlayShape
Set shpOverlayShape = Nothing
End Sub

The code is supposed to cycle through the shapes and if the first 6
characters of the name = a preset value, it changes the name to the long form
of that value and the page number.  This allows a different sub that accessed
shapes based on thier name to get the correct shape on a page by repairing
the shape numbers if user changes position of a page.

Any help would be appreciated
Cory