Search All Database Objects for a string

SET QUOTED_IDENTIFIER ON 
GO
SET ANSI_NULLS ON 
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[spFindTextInObjects]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[spFindTextInObjects]
GO

CREATE   PROCEDURE spFindTextInObjects (@findText nvarchar(1000),
@havingCountGreaterThan smallint = 0)
AS
-- Example Calls
-- EXECUTE spFindTextInObjects 'UNION ALL', 1 
-- EXECUTE spFindTextInObjects 'XML EXPLICIT'
-- EXECUTE spFindTextInObjects 'DECLARE%CURSOR', 1
-- EXECUTE spFindTextInObjects '@@IDENTITY', 1
-- GO
SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED

DECLARE @findText2 nvarchar(1002)

IF @findText IS NULL 
RETURN

SET @findText2 = '%' + UPPER(@findText) + '%'

SELECT COUNT(*) As [FindCount], 
OBJECT_NAME([id]) As [Name],
[id]
FROM syscomments  
WHERE OBJECTPROPERTY(id, 'IsMSShipped') = 0
AND PATINDEX(@findText2, UPPER([text])) > 0
GROUP BY [id]
HAVING (COUNT(*) > @havingCountGreaterThan)
ORDER BY [FindCount] DESC, 
[Name]

SET TRANSACTION ISOLATION LEVEL READ COMMITTED
RETURN

GO

SET QUOTED_IDENTIFIER OFF 
GO
SET ANSI_NULLS ON 
GO