try this
Sub idtextbox()
For Each sh In ActiveSheet.Shapes
If sh.Type = 17 Then sh.Delete 'MsgBox sh.Name
Next
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dr. Schwartz" wrote in message
...
I want to delete any (all) textboxes in the activesheet. This is what I
have
got so far:

For Each Shapes.TextBox In ActiveSheet
.Delete
Next

Can anyone help me make this work?
Thanks
The Doctor