Intermittent Runtime Error when inserting picture

I'm having difficulty nailing this one down as it does it on occasion and I can't figure out the key to it. It may do it on startup or it may do it after a few other macro's are ran. Can anyone see any problems within this code that might cause such an issue?

The error I am getting (highlighted in red) is that it cannot view the object properties. So the picture is put in, but it's emplacement cannot be set and the picture cannot be renamed (which must occur for other macros to see it).

• Pages are not protected
• The only self automated macro is on workbook open, and it only resizes to view the area depending on the persons resolution.
• Microsoft Excel 2003

Please Login or Register  to view this content.

Try...

Please Login or Register  to view this content.

...just in case there are Shapes which are not being counted as DrawingObjects.

Thanks,

I will have to run it over a few times. Probably have some of my coworkers try it out also before I make my determination that it is fixed. As I said, this pops up on occasion (usually when I'm showing one of my bosses on how it works)...




**** Edit **** After a few days of testing this seems to have fixed the problem. Many thanks for your input mrice.