How to Grant Execute All Functions In SQL Server to group - sql

Question

I have a list of function I need to grant execute to specific group, I found that the query should be executed like this
GRANT EXECUTE ON [dbo].[FunctionName] TO [GroupName]
But since I have 40 functions in the database, so I need to execute it 40 times with updateing the finction name. And when I haave new unctions I need to execute the new one the same way, my question if there is a Script/Function that get all the functions name in the database and execute all just once. I am able to get the list of functions with this code:
SELECT name AS function_name
FROM sys.objects
WHERE type_desc LIKE '%FUNCTION%'
and also I create a function to execute it:
ALTER function [dbo].[listFunction]()
returns int
AS
BEGIN
declare #Result int;
declare #ListFn nvarchar(100);
set #ListFn = (
SELECT name AS function_name
FROM sys.objects
WHERE type_desc LIKE '%FUNCTION%'
);
if #ListFn=null
set #Result = 1
else
set #Result = 0
return #Result
end
but what is missing how to iterate each function and grant execute, so any help?
Edit: I have edited the query with this using the chema
DECLARE #SchemaName varchar(max)
DECLARE #GroupName varchar(max)
SET #SchemaName = 'dbo'
SET #GroupName = '[groupname]'
select 'GRANT EXECUTE ON OBJECT::' + #SchemaName + '.' + P.name + ' to ' + #GroupName
from sys.objects P
inner join sys.schemas S on P.schema_id = S.schema_id
where S.name = #SchemaName
and P.type_desc LIKE '%FUNCTION%'
Edit 2: I craete a procedure to execute the grant, because it cnnot work with function, so I executed it and no execeptionsshown, but I don't knwo if it i right or not:
CREATE PROCEDURE ExecuteAllFunctions
AS
BEGIN
DECLARE #i int
declare #Result int;
declare #ListFn nvarchar(100);
DECLARE #a TABLE (fnct nvarchar(max))
DECLARE #SchemaName varchar(max)
--DECLARE #a TABLE (id uniqueidentifier)
DECLARE #GroupName varchar(max)
SET #SchemaName = 'dbo'
SET #GroupName = '[GroupName]'
INSERT INTO #a select 'GRANT EXECUTE ON OBJECT::' + #SchemaName + '.' + P.name + ' to ' + #GroupName
from sys.objects P
inner join sys.schemas S on P.schema_id = S.schema_id
where S.name = #SchemaName
and P.type_desc LIKE '%FUNCTION%'
--EXEC #ListFn
--SET #i = 1
--WHILE (#i <= (SELECT MAX(fnct) FROM #a))
-- BEGIN
-- set #ListFn = (select fnct from #a a where a.fnct=)
-- SET #i = #i + 1
-- END
--if #ListFn=null
--set #Result = 1
--else
--set #Result = 0
--return #Result
end