Hi
It's not clear wether you want to clear ALL text boxes or just selected ones. I'm guessing just selected ones.
I would add a tag to the text boxes to clear. This code will add a tag to all selected shapes on one slide.
Sub tagger()
On Error GoTo errhandler
Dim oshp As Shape
Dim i As Integer
For Each oshp In ActiveWindow.Selection.ShapeRange
oshp.Tags.Add "delete", "yes"
Next
Exit Sub
errhandler:
MsgBox "Select some shapes!"
End Sub
This code would then clear ALL shapes that are tagged
Sub zapper()
Dim osld As Slide
Dim oshp As Shape
For Each osld In ActivePresentation.Slides
For i = osld.Shapes.Count To 1 Step -1
Set oshp = osld.Shapes(i)
If oshp.Tags("delete") = "yes" Then oshp.TextFrame.TextRange = ""
Next i
Next osld
End Sub
You might want to add some error traps eg to check that the tagged shape has a textframe
If oshp.HasTextFrame Then
Hope that helps