Is there a quick way to see which objects have code attached?

[Terri]

I have inherited a workbook with macros/visual basic
coding, that I need to make modifications to. Is there a
quick way to see what the macros are attached to, other
than right clicking on all of the excel objects, or
individually selecting them in the vb editor? I'd like to
see a listing of only the objects that have code attached
to them, and what the name of the routine is called.

 

[Tom Ogilvy]

Perhaps something like this:

for each shp in ActiveSheet.Shapes
if shp.OnAction <> "" then
cells(rw,1).Value = shp.Onaction
cells(rw,2).Value = shp.name
rw = rw + 1
Next

 

[Terri]

Thanks for the tip -- I hadn't considered writing code to
find the objects. I'll try it!