To delete text boxes based on name/contained text

[John Wilson]

If you know the probable names you can use wildcards like this

For L = osld.Shapes.Count To 1 Step -1 
      f osld.Shapes(L).Name Like = "Text*" Then If osld.Shapes(L).Delete
Next L