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

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

I left out a shp in my last posting

For Each Shp In ActiveSheet.Shapes
Shp.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

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
(E-Mail Removed)
"Dr. Schwartz" <(E-Mail Removed)> wrote in message
news:23730436-76C4-434A-BFDE-(E-Mail Removed)...
>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, 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

"Joel" wrote:

> I left out a shp in my last posting
>
> For Each Shp In ActiveSheet.Shapes
> Shp.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