Обработка всех запросов - поиск строки (вывод в Immediate окно)

Private Sub AllQueriesSQL()
' Обработка всех запросов приложения и вывод в Immediate окно испорченных с "ВыражениеX" или "ExprX"
'----------------------------------------------------------------------------------------------------
Dim qdf As DAO.QueryDef
Dim sSQL As String

    For Each qdf In CurrentDb.QueryDefs
        sSQL = qdf.SQL
        If InStr(1, sSQL, "Выражение") > 0 Or InStr(1, sSQL, "Expr") > 0 Then
            Debug.Print qdf.Name
        End If
    Next qdf
    
    Set qdf = Nothing

End Sub