Generate GRANT statements for stored procedures (SQL Server 2000)

gistfile1.sql

DECLARE @User varchar(50)

SELECT @User = 'myuser'
SELECT
        'GRANT EXEC ON ' + name + ' TO ' + @User
FROM
        sysobjects
WHERE
        type = 'P'
        AND category = 0