Elimination of Text Box

[Outline]

Can someone tell me how to delete all text boxes imbedded within a spreasheet. I have a spreadsheet with over 100 boxes and I would like to delete all of the text boxes.


Thanks!

 

[doofusboy]

If you just left the text boxes with their generic names of TextBox1, TextBox2, etc., you could do something like this:

Dim myTxt As Shape
    
    For Each myTxt In Sheet1.Shapes
        If Mid(myTxt.Name, 1, 7) = "TextBox" Then
            myTxt.Delete
        End If
    Next myTxt