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