Select/Delete worksheet "Text Boxes" using VBA

[mclausell]

I could use some assistance in creating a macro that will delete all and only text boxes on the active sheet. Some text boxes will be empty, but I still wish for them all to be deleted. Through searching the forums I see a similiar code, but it deletes all shapes on the active sheet:

Please Login or Register  to view this content.

Reference Post


Thank you,

[sweep]

Hi,

Try this?

Please Login or Register  to view this content.

[mclausell]

Hi,

I tried the above code and nothing occured. No text boxes were deleted and nor did I get any errors/debug pop up.

I will also need to update my profile to show my current version is Excel 2002 SP3. I do plan to upgrade by the end of the month.

Thank you for time, I am very greatful for any and all advice.

[shg]

Sweep's code works fine for me, exactly as written.

What did you do to run it?

These are text boxes from the drawing toolbar?

[mclausell]

Hello,

That was a great question since I have been drawing these text boxes from the control toolbar. I will draw them from the drawing toolbar and run the code. Will post results.

Thank you,

[mclausell]

Hello again,

Yes the code works when I draw the text boxes from the drawing toolbar. Not sure if I can add more detial to my question now, but how would the code be written for removing text boxes from the control toolbar.

Thank you,

[sweep]

Try this..

Please Login or Register  to view this content.

[Colin Legg]

If they are ActiveX textboxes (as in this case) then I would use:

Please Login or Register  to view this content.

If they aren't ActiveX textboxes (say you added them from the Drawing toolbar) then you don't need to loop through the shapes object collection:

Please Login or Register  to view this content.

Hope that helps...

[mclausell]

Hello everyone,

Thank you for your help. Both codes from Sweep and Colin Legg were successful. I am very greatful of your time and efforts.