How do I put all of the sheet names in a range and rename it?

Thanks,