Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Microsoft Excel (Text Box)

Status
Not open for further replies.

mauromalacara

Programmer
Oct 20, 2003
12
MX
I have an excel spread sheet file with a lot of text box blank hide on every where of spread sheet, I am finding one by one and removing, Is there any way that let me erase all "text box blank" of once....
 
Hi,

This will delete ALL OLE Objects on your sheet, ie controls, pictures, etc.

copy this code to a vba module (alt+F11 opend the vb editor) and Tools/Macro/Macros - Run DeleteShapes...
Code:
sub DeleteShapes()
dim sh as shape
for each sh in activesheet.shapes
  sh.delete
next
end sub
Save your workbook BEFORE running this macro.

Skip,
[sub]
[glasses] [red]Be advised:[/red] The dyslexic, agnostic, insomniac, lays awake all night wondering...
"Is there really a DOG?" [tongue][/sub]
 
In Edit, Go To, Special, click on Objects and then OK, all text boxes will be selected.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top