Deleting a textbox

[Dr. Schwartz]

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

 

[Joel]

For Each Shp In ActiveSheet.shapes
.Delete
Next

 

[Joel]

I left out a shp in my last posting

For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next

 

[Don Guillett]

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

 

[Dr. Schwartz]

Joel, I'm sure you meant well, but be aware that your suggestion here can
have serious consequenses. Please read the post: 'Validation list
functionality disappered' for details.

The doctor