check if shape exists, then...

Hi!

I am currently using the following macro to delete all shapes in a range on my worksheets. However, recently I happen to run into error 1004 telling me that an object is missing... Interestingly enough, when I end the complete macro (of which this one is a part of, basically a whole bunch of individual macros all called one after another) and then call this specific macro by itself, it seems to work with no problem.

Please Login or Register  to view this content.

Well, since I cannot figure out what is going on, I would like to modify the macro above to firstly only run if the sheet name is either "VIP" - "PCP" - "LSG" or "Company", and secondly check if there actually IS any shape in the specified range before trying to delete it.

Since I did not write this code, and I am not familiar with shapes in vba, I was wondering if someone could give me a hand on this?
Thanks a lot!

A2k

well, technically its defining the remaining procedure for each shape in range. my guess is that I am experiencing troubles which somehow are related to the case if there is no shape in range, since I am getting a 1004 error, which is related to a missing object.

This line is highlighted in the editor:

Please Login or Register  to view this content.

I already deleted all shapes in the form but cannot get past this error. I am just thinking that by more strictly defining the sheets it is supposed to run and to specifically let it check if there really is a shape in the range.

Any ideas what that could be?
Thanks,
A2k

still the same error: runtime error 1004 - application defined or object defined error.

I seriously have no idea what that could be. It now doesnt work anymore no matter if it is started as part of the whole macro procedure or as an individual macro. Can I somehow skip this step if it returns an error?