Save As new woorkbook from Input Name

Hello Experts

I have one line with input box

currentsheet = InputBox("name")

And i want to open new workbook with that name

How do I save the new woorkbook with the name from the InputBox?

Thanks

The Shark Man