This code will work for you assuming that you want to delete all of the
shapes on the sheet. Shapes include text boxes and combo boxes and pictures
and command buttons and...

Sub DeleteStuff()
Dim shp As Shape

For Each shp In ActiveSheet.Shapes
shp.Delete
Next shp
End Sub

--
HTH...

Jim Thomlinson


"Tony7659" wrote:

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.