Thanks Jim and everybody for your support. The sheet contained more than
52,000 text boxes and I could get rid of all of them. I just do not know how
in the world this may have happened. Thanks again.
Tony.


"Rick Rothstein" wrote:

This code will delete ALL TextBoxes (whether from the Drawing toolbar or
from the ActiveX ControlToolbox toolbar) on the specified worksheet (change
my example worksheet name from the Sheet7 that I used to your worksheet's
actual name)...

Sub DeleteAllTextBoxesOnSheet()
Dim O As OLEObject
With Worksheets("Sheet7")
.TextBoxes.Delete
For Each O In .OLEObjects
O.Delete
Next
End With
End Sub

--
Rick (MVP - Excel)


"Tony7659" wrote in message
...
I have found that for some reason one of the tabs on my spreadsheet
contains
thousands of blank "Text Boxes". The text boxes do not have borders so
they
are invisible thus causing a slowdown in that particular area of the
spreadsheet tab. Is there a way to select them all and delete them in one
shot? or, Can I create a macro that goes let's say from the first text box
to
about 55,000 and delete them one at a time? Please advise. Thank you.
Tony.