Finding all AutoShapes in workbook

[ExcelMonkey]

I just came across and AutoShape in a spreadsheet which has a macro assigned
to it. The name of this shape is AutoShape40. This has prompted me to look
and see if there are any other AutoShapes in the model AND are they assigned
to these same macros. What is the easiest way for me to find all the
autoshapes in the model? I am assuming it using a For Next Loop using some
sort of AutoShape collection. I am then assuming that I need to check if
shapes exist and some how trap their location. Perhaps by using the parent
property to trap the sheet name. Any ideas?
Sub ShapeIdentify ()
Dim sh as Worksheet
Dim Shape As Object

For each sh in Worksheets
For each Shape in Shapes
IF Shape exists (???????)
Msgbox("Shape exist on sheet:" & Shape.Parent.Name & ", and is
called: " Shape.Name)
End if
Next
Next sh
End Sub

Thanks

 

[ExcelMonkey]

Hi Rob. I cannot see an attachment in the newsgroup here. Acutally, I did
not know you could attach anyting here!

Where should I be looking for it?

EM

 

[ExcelMonkey]

Sorry Rob. I just followed the website link

Thanks