请问如何一次性删除所有的text box

 

 

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