beispiel:
die Qbjekte heisen "Rechteck1...5"
die Schleife versucht die Rechtecke nacheinander zu aktivieren, wird eines nicht gefunden gibt es einen Fehler der wird abgefangen und mit eine MSG Box quittiert.
Code:
Dim Recht_name As String
Recht_nr = "1"
Do Until Recht_nr = "6"
Recht_name = "Rechteck" & Recht_nr
On Error GoTo Rechteck_weg
Shapes(Recht_name).Select
GoTo WEITER
Rechteck_weg:
MsgBox Recht_name & " wurde gelöscht"
WEITER:
Recht_nr = Recht_nr + 1
Loop