SP to search String in TEXT of SPs

CREATE PROCEDURE SEARCHFORSTRING @SEARCHSTRING VARCHAR(100)
AS
SELECT DISTINCT(sysobjects.name)

        FROM 
sysobjects,syscomments

WHERE 
sysobjects.id =     syscomments.id

AND 
sysobjects.type = 'P'
AND 
sysobjects.category=0
AND
CHARINDEX(@SEARCHSTRING ,syscomments.text)>0