Records Per Table

Ever find yourself needing a list of records per table for an entire schema?  The sql below should help :-

set serveroutput on size 999999;

declare
vsql varchar2(4000);
vcount number(12);
cursor c1 is
select table_name as name from user_tables
order by name;
begin
for rec1 in c1 loop
vsql := ‘select count(*) from ‘||rec1.name;
execute immediate vsql into vcount;
dbms_output.put_line(rec1.name||’ has ‘||vcount||’ rows’);
end loop;
end;
/