Copy into a new worksheet, Save As, Close

Hi

I wish to set a macro for the user to click a button and then he can select where to save the file in and what name to save the file under. How do I do that?

Thank you!