Deleting a textbox

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Dr. Schwartz - 30 Jan 2008 12:46 GMT

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

Reply to this Message

Joel - 30 Jan 2008 13:19 GMT

For Each Shp In ActiveSheet.shapes
.Delete
Next

> I want to delete any (all) textboxes in the activesheet. This is what I have
> got so far:
[quoted text clipped - 6 lines]
> Thanks
> The Doctor

Reply to this Message

Joel - 30 Jan 2008 13:20 GMT

I left out a shp in my last posting

For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next

> I want to delete any (all) textboxes in the activesheet. This is what I have
> got so far:
[quoted text clipped - 6 lines]
> Thanks
> The Doctor

Reply to this Message

Dr. Schwartz - 31 Jan 2008 15:23 GMT

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

> I left out a shp in my last posting
>
[quoted text clipped - 12 lines]
> > Thanks
> > The Doctor

Reply to this Message

Don Guillett - 30 Jan 2008 13:39 GMT

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

Signature

Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com

>I want to delete any (all) textboxes in the activesheet. This is what I
>have
[quoted text clipped - 7 lines]
> Thanks
> The Doctor

Reply to this Message