For Each Shp In ActiveSheet.shapes
.Delete
Next


"Dr. Schwartz" wrote:

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