VB to identify and delete any text box on a sheet
 

Hi There,

I have a sheet called "Master" on which through macros several text
boxes have been inadvertenly pasted. I want to run a macro that will
select and delete all text boxes on a sheet (irrespecitve of the text
box number...)

Thanks!!!

Regards

D

*** Sent via Developersdex http://www.developersdex.com ***

VB to identify and delete any text box on a sheet
 

This will remove text boxes inserted from the drawing toolbar:

Sub tboxkiller()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Delete
Next
End Sub

1. select the worksheet
2. run the macro from that sheet
--
Gary''s Student - gsnu200736


"Darin Kramer" wrote:



Bob,

I added Sheets("Master").select to get it to go to the correct sheet.
However the Macro does not work - ie it skips over the first if, ie
doesnt find any text boxes to delete...
Am I doing something wrong...?

Regards
D

*** Sent via Developersdex http://www.developersdex.com ***

VB to identify and delete any text box on a sheet
 

You need to be more careful than that. Your code will also delete the arrows
on a data validation cell, or the autofilter dropdown arrow.

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Gary''s Student" wrote in message
...
This will remove text boxes inserted from the drawing toolbar:

Sub tboxkiller()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Delete
Next
End Sub

1. select the worksheet
2. run the macro from that sheet
--
Gary''s Student - gsnu200736


"Darin Kramer" wrote:



Bob,

I added Sheets("Master").select to get it to go to the correct sheet.
However the Macro does not work - ie it skips over the first if, ie
doesnt find any text boxes to delete...
Am I doing something wrong...?

Regards
D

*** Sent via Developersdex http://www.developersdex.com ***

VB to identify and delete any text box on a sheet
 

Possibly

Sub DeleteTextboxes()
dim tbox as TextBox
for each tbox in worksheets("Master").TextBoxes
tbox.Delete
Next
End Sub


or
Sub DeleteTextboxesA()
worksheets("Master").Textboxes.Delete
End Sub


--
Regards,
Tom Ogilvy



"Gary''s Student" wrote:

This will remove text boxes inserted from the drawing toolbar:

Sub tboxkiller()
Dim s As Shape
For Each s In ActiveSheet.Shapes
s.Delete
Next
End Sub

1. select the worksheet
2. run the macro from that sheet
--
Gary''s Student - gsnu200736


"Darin Kramer" wrote:



Bob,

I added Sheets("Master").select to get it to go to the correct sheet.
However the Macro does not work - ie it skips over the first if, ie
doesnt find any text boxes to delete...
Am I doing something wrong...?

Regards
D

*** Sent via Developersdex http://www.developersdex.com ***