怎样在存储过程中动态的使用表名，而又可以使用游标？

--过程
create proc mypro
as
declare @a nvarchar(100),@tbname nvarchar(100)
set @tbname='sysobjects'
exec ('declare mycursor cursor for select name from '+@tbname+' where xtype=''U''')
open mycursor
fetch next from mycursor into @a
while @@fetch_status=0
begin
print @a
fetch next from mycursor into @a
end
close mycursor
deallocate mycursor
go

--执行
exec mypro
--删除过程
drop proc mypro