Kann ich die Suche von "AcitveSheet.Shapes" auch einschränken, zB auf Spalte A? Die Zeile, in der ein Shape steht soll inkl. des Shape gelöscht werden. Ich habe folgenden Ansatz gefunden:
Sub x()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
End Sub
DankeGregor