Shape suchen und Zeile löschen
Gregor
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
Anzeige