Sub LocateShapes()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
shp.Select
shp.TopLeftCell.Select
MsgBox shp.Name & " . . . OK to continue"
Next

End Sub

--
Regards,
Tom Ogilvy



"Andibevan" wrote in message
...
I have a problem with a worksheet saving and from reading things on the MS
KB it appears to be related to Embedded Objects, with the only suggested
solution being to delete them.

The problem I have is that my colleagues have a habit of making an
embedded
object minute rather than deleting it. As a result I can't find the
mysterious embedded object.

How can I cycle through all the embedded objects on a worksheet?

TIA

Andi