Grant All Function Giving Errors

I'm migrating from 2000 to 2005, what is the best way to handle the following error:

The ALL permission is deprecated and maintained only for compatibility. It DOES NOT imply ALL permissions defined on the entity

The code is below:

DECLARE @sp_name AS sysname;
DECLARE syscursor CURSOR FOR
  SELECT name FROM sysobjects
  WHERE (xtype = 'P' or xtype='V') AND ((status & 0x80000000) = 0);


OPEN syscursor;
FETCH NEXT FROM syscursor INTO @sp_name;


WHILE (@@FETCH_STATUS = 0)
BEGIN
  EXECUTE ('GRANT all ON ' + @sp_name + ' TO Public');
  FETCH NEXT FROM syscursor INTO @sp_name;
END


CLOSE syscursor;
DEALLOCATE syscursor;