Save a workbook to a folder path in textbox2 using textbox1 as filename

Hi Guys,

I have a deadline and I really need your help!!

My userform1 has two textbox. Texbox1 is where the user put's his/her name, and textbox2 is where the user put/browse the folder path where to save the newly generated workbook. I want the new workbook to be saved in the path defined by the user in textbox2 with filename sequence (Textbox1_Accounting_Todaysdate) and with file extension of only .xls and .xlsx.

VBA code for the "Browse" button which returns the folder path in textbox2:

Private Sub Browsebutton_Click()
Dim pathSelected As String

Dim ShellApp As Object
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Choose a folder", 0, OpenAt)
pathSelected = ShellApp.Self.Path
Me.output.Text = pathSelected
Set ShellApp = Nothing
Exit_CommandButton1_Click:

Exit Sub

Err_CommandButton1_Click:

MsgBox Err.Description

Resume Exit_CommandButton1_Click:

End Sub.

I am not really sure what to put in "Submit" button.

For now my submit button have this:

Private Sub Submit_Click()

Workbooks.Add

(and a bunch of VBA code for accounting)

(VBA to save???) 
   
End Sub

Thanks
sorry for my bad english

Moderator Note:

Pls use code tags around your code next time as per forum rules.

As that takes care of your original question, please select Thread Tools from the menu link above and mark this thread as SOLVED,as per Forum Rule #9. Thank you.

Also, as a new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.