Guten Tag
Ich habe folgenden Code:
...
On Error Resume Next

ActiveSheet.Shapes("Picture 18").Select
Selection.Delete
ActiveSheet.Shapes("Picture 17").Select
Selection.Delete
ActiveSheet.Shapes("Picture 16").Select
end sub
Diese Fehlerbehandlung ist natürlich nicht brauchbar, da mit Selection.Delete immer etwas gelöscht wird, was nicht gewollt ist.
Kann ich gleich noch eine Zeile des Codes überspringen?
Danke, Peter