was stimmt nicht an meinem code?

Sub module_loeschen()
' diese funktion wird von dem button "Module loeschen" in der tabelle
' Zeichnung aufgerufen, um die markierten module zu loeschen
' damit aber nichts falsches gelöscht wird, muss überprüft werden, ob
' es sich auch wirklich um rechtecke handelt
// diese drei zeilen sind wunschdenken
'If (Selection.Type = msoShapeRectangle) Then
'Selection.Delete
'End If
Dim myShape As Shape
For Each myShape In Tabelle23.Shapes
If (myShape.Type = msoShapeRectangle) Then
If (myShape.Select) Then
Selection.Delete
End If
End If
Next
End 

Sub
vielen dank im voraus
joe richter