Grant Select on all Tables Owned By Specific User

Grant Select on OwningUser.* to ReceivingUser

Select 'GRANT SELECT ON OwningUser.'||Table_Name||'TO ReceivingUser'
 From All_Tables Where Owner='OWNINGUSER'

BEGIN
   FOR R IN (SELECT owner, table_name FROM all_tables WHERE owner='TheOwner') LOOP
      EXECUTE IMMEDIATE 'grant select on '||R.owner||'.'||R.table_name||' to TheUser';
   END LOOP;
END;