To delete text boxes based on name/contained text

[John Wilson]

Yes and actually you should add a further check like this

Sub chexSN()Dim osld As Slide
Dim osldcopy As SlideRange
Dim L As Long
For Each osld In ActivePresentation.Slides
    Set osldcopy = osld.Duplicate
    For L = osld.Shapes.Count To 1 Step -1
        If osld.Shapes(L).HasTextFrame Then
            If osld.Shapes(L).TextFrame.TextRange <> osldcopy(1).Shapes(L).TextFrame.TextRange Then
                osld.Shapes(L).TextFrame.DeleteText
                osld.Shapes(L).Delete
            End If
        Next L
        osldcopy.Delete
    End If
Next osld
End Sub