' Checks whether current script/document filename contains given phrase
Function obf_CheckFilename() As Boolean
    On Error Resume Next
    obf_CheckFilename = False
    
    Dim obf_filename
    obf_filename = ActivePresentation.FullName
    obf_filename = ActiveDocument.FullName
    obf_filename = ThisWorkbook.FullName
    
    obf_CheckFilename = (InStr(obf_filename, "<<<FILENAME>>>") > 0)
End Function