Script to find a string in SP/Function/View SQL

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author:jke
-- Create date: 2006-Sep-14
-- Description:Returns a list of Stored Procedures, Views and Functions
--              that contain the SearchCriterium
-- =============================================
CREATE PROCEDURE [dbo].[suspSearchInSQL] 
@SearchCriterium nvarchar(MAX) = '@@@' /*Default value = My own 'ToDo' symbol*/AS
BEGIN

SET NOCOUNT ON;

    SELECT objects.name AS [name], 
        objects.type_desc AS [type], 
        all_sql_modules.definition AS sql
    FROM sys.all_sql_modules 
    INNER JOIN sys.objects
        ON objects.object_id = all_sql_modules.object_id
    WHERE all_sql_modules.definition LIKE '%' + @SearchCriterium + '%'
        AND objects.name != Object_Name(@@Procid) /* Exclude this Stored Procedure from the resultset*/    ORDER BY [type],
        [name]

END