Save As new woorkbook from Input Name

[Shark Man]

Hello Experts

I have one line with input box

Please Login or Register  to view this content.

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

[Shark Man]

Hay experts
I'm sure its easy for you

Shark Man

[nnram123]

Use the following macro in your excel vba part, hope this will help you.

Sub Test()
Dim wBook As New Workbook
currentsheet = InputBox("Name")
Set wBook = Application.Workbooks.Add
wBook.SaveAs "D:\" & currentsheet & ".xls"
End Sub