hi TishyMouse,
You shouldn't need to select the shapes to do something with them. For example:
Code:
Sub ProcessShapes()
Dim sh As Shape
For Each sh In ActiveDocument.Shapes
With sh
MsgBox .Name
'Will do some other things here
End With
Next
End Sub
PS: When posting code, please use the code tags (they're on the Advanced tab).