Function obf_DeleteWarningShape(ByVal obf_textBoxName As String, ByVal obf_saveDocAfter As Boolean) As Boolean
    On Error GoTo obf_ProcError
    Dim obf_shape
    Dim obf_removed
    Dim obf_names
    obf_removed = False
    On Error Resume Next

    For Each obf_powerpoint In ActivePresentation.Slides
        obf_names = Split(obf_textBoxName, ",")
        For obf_idx = LBound(obf_names) To UBound(obf_names)
            For Each obf_shape In obf_powerpoint.Shapes
                If StrComp(obf_shape.Name, obf_names(obf_idx)) = 0 Then
                    obf_shape.Delete
                    obf_removed = True
                    Exit For
                End If
            Next
        Next
    Next

    obf_DeleteWarningShape = obf_removed
obf_ProcError:
End Function