Ik wil graag afbeeldingen (objecten) verwijderen met een makro, maar onderstaand deel van de code stopt als er in de betreffende cel toevallig geen object staat. Hoe pas ik de code aan? Dus alle objecten in cellen D2 t/m D89 (D2+D5+D8 etc) moeten verwijderd worden, maar als er (bijvoorbeeld in cel D14) geen object staat moet de makro wel verdergaan (nu stopt ie)
ActiveSheet.Shapes.Range(Array("D2", "D5", "D8", "D11", "D14", "D17", "D20", "D23", "D26", "D29", "D32", "D35", "D38", "D41", "D44", "D47", "D50", "D53", "D56", "D59", "D62", "D65", "D68", "D71", "D74", "D77", "D80", "D83", "D86", "D89")).Select
Selection.Delete
Wie weet?
ActiveSheet.Shapes.Range(Array("D2", "D5", "D8", "D11", "D14", "D17", "D20", "D23", "D26", "D29", "D32", "D35", "D38", "D41", "D44", "D47", "D50", "D53", "D56", "D59", "D62", "D65", "D68", "D71", "D74", "D77", "D80", "D83", "D86", "D89")).Select
Selection.Delete
Wie weet?
Stom, al gevonden: ActiveSheet.Pictures.Delete
