was muss ich ergänzen oder ändern, damit nur die Textboxen gelöscht werden.
Die Textboxen haben verschiedene Namen, sind also nicht durchnummeriert.
Sub Löschen()
Dim shShape As Shape
For Each shShape In ActiveSheet.Shapes
if ......?
shShape.Delete
endif
Next
End Sub
Schöne GrüßeRolf