In einer Tabelle, die als Vorlage für verschiedene Berechnungen dient, haben sich wohl durch Bereiche kopieren eine Unzahl an Textfelder "eingeschlichen". Ich möchte diese nun alle löschen.
Ein einziges habe ich gelöscht und gleichzeitig den Makrorecorder zur Aufzeichnung bemüht (vgl. unten).
Kann mir jemand sagen, wie ich eine Schlaufe baue, die mir alle solchen Shapes entfernt, ohne dass ich die genauen Bezeichnungen kennen und den genauen Ort herausfinden muss (Datei ist durch diesen Gerümpel etwas schwerfällig geworden)?
Danke, Peter
Sub Makro1()
Range("L12").Select
ActiveSheet.Shapes("Text Box 4653").Select
Selection.Cut
End Sub