Alle Shapes eines Tabellenblatts l�schen

Unz�hlig viele Rechtecke auf einem Tabellenblatt sollen automatisch gel�scht werden.
 
Sub Rechtecke_l�schen()
   Dim SH As Shape
   For Each SH In Worksheets(1).Shapes   
      If SH.Type = 1 Then SH.Delete
   Next SH
End Sub