Verder gaan als de afbeelding niet gevonden is

[MvanderS]

Ik heb afbeeldingen ingevoegd in een Excelsheet vanuit een database. Om ruimte te besparen worden de afbeeldingen bij het sluiten van de Excelsheet uit de Excelsheet verwijderd door onderstaand script.

Sub DeleteAfbeeldingen()
 
 AfbNaam = Worksheets("Collage").Range("O16").Value
    Worksheets("Collage").Shapes(AfbNaam).Select
    Selection.Delete
   End Sub

Het probleem is dat als er een afbeelding niet is ingevoegd deze ook niet verwijderd kan worden.
Nu wil ik dat als de afbeelding niet gevonden is het script gewoon verder gaat.

 

[snb]

Sub verwijder()
  for each afb in Worksheets("Collage").Shapes
    afb.Delete
  next
End Sub

 

[MvanderS]

Bedankt voor het antwoordt, maar hiermee zullen alle afbeeldingen zeker verwijderd worden? Dat is echter niet de bedoeling, alleen de ingevoegde afbeeldingen.

Top forum trouwens:thumb: