Alle shapes Type 5 ausw?hlen und l?schen

Sub shapesNr5Delete()
'L?schen von Elementen aus einer Auflistung immer von
'hinten (gr??ter Indexwert) beginnen!!!
Dim n As Long
n = Worksheets(1).Shapes.Count
For i = n To 1 Step -1
If Worksheets("Tabelle1").Shapes.Range(i).Type = 5 Then
Worksheets("Tabelle1").Shapes.Range(i).Delete
End If
Next i
End Sub