excel删除text box

Ctrl+G定位（F5）——定位条件——对象——确定——删除。
（如果对象是用控件，可调出控件工具箱，点击第一个按钮进入编辑状态，然后再用定位，删除。

Sub Macro1()
  For Each a In ActiveSheet.Shapes
   a.Delete
   Next
End Sub

Sub Macro1()
J = 1
Dim aa As Shapes
i = ActiveSheet.Shapes.Count
With ActiveSheet
     For J = 1 To i
         .Shapes(1).Select
         cc = .Shapes(1).Name
         If Left(cc, 8) = "Text Box" Then
            .Shapes(cc).Select
            Selection.Delete
         End If
     Application.StatusBar = J & "   /   " & i
     Next
End With
End Sub