Hi,

If they are worksheet control toolbox text boxes then
Dim i As Long
For i = 1 To ActiveSheet.OLEObjects.Count
If TypeName(ActiveSheet.OLEObjects(i).Object) < "TextBox" Then

ActiveSheet.OLEObjects(i).Delete
End If
Next i

HTH
Carim