Hi,

  I have a macro that erases all shapes on a page and basically
restarts a workflow process. However, if no shape exists on the page
the macro fails because it "selects all" shapes and if no shapes exist
it fails. If I could set up a stage of the macro to evaluate whether or
not shape(1) exists on page(1) i could make it skip over the chunk that
looks for shapes all together. I have begun with:

If ActiveDocument.Pages(1).Shapes(1) Is ?does not exist? Then GoTo
skiptwo else continue

I just don't know how to evaluate the existence of an object in the
area between the question marks. Any ideas would be greatly
appreciated. Thanks!