Hallo Experten, habe in Excel 2010 - Arbeitsblättern einzelne Zellen mit "Rechtecken", die noch aus Excel 2003 (vor der Konvertierung) stammen. Die Rechtecke haben sich auf wundersame Weise vermehrt, d.h. auf der jeweiligen Zelle liegen jetzt viele gleichartige Rechtecke übereinander (Rectangle xxx bis yyy). Wie kann ich diese (alle auf einmal) entfernen?
Mit Dank im voraus
Robinson
Sub aaa()
Dim shp As Shape
Application.ScreenUpdating = False
For Each shp In ActiveSheet.Shapes
If shp.AutoShapeType = msoShapeRectangle Then shp.Delete
Next
End Sub