macro to bring up stored workbook, auto save to a new folder, then auto fill

Hello,

I am trying to write a vba code that after starting a macro from workbook1 will bring up a workbook from a designated folder which we can call workbook2, then auto save workbook2 right when it comes up and call the file name from a cell from workbook1 cell A1 and save it to a new destination C:\saved folder, then prefills info in cells from a user form from workbook1 into workbook 2. Then after the info prefills into the cells from the userform to workbook2, the person just has to click the save button, then close and it automatically save to the C:\saved folder, without the person trying to find the destination folder. Below is what I have so far. This code will bring up workbook2 and will prefill the information, but just having a little trouble finding out how to auto save right away to a new destination folder. Thanks for the help


Sub OpenUPaircalc()

Dim nwb As Workbook

Set nwb = Workbooks.Open("\\Library\DOCS\UW_Calculators.xlt")

With nwb.Sheets(1)
.Range("K40").Value = UserForm1.TextBox1.Text
.Range("O40").Value = UserForm1.TextBox2.Text
.Range("V40").Value = UserForm1.TextBox4.Text
.Range("K62").Value = UserForm1.TextBox5.Text
.Range("N62").Value = UserForm1.TextBox6.Text
.Range("K74").Value = UserForm1.TextBox7.Text
.Range("R74").Value = UserForm1.TextBox8.Text
.Range("AA74").Value = UserForm1.TextBox9.Text
.Range("K88").Value = UserForm1.TextBox10.Text
.Range("I6").Value = Sheet1.Range("M1").Value
.Range("Z6").Value = Sheet1.Range("L1").Value
.Range("I8").Value = Sheet1.Range("I1").Value
.Range("Q8").Value = Sheet1.Range("B3").Value
.Range("Z8").Value = Sheet1.Range("L4").Value
.Range("I10").Value = Sheet10.Range("A71").Value
.Range("Z10").Value = Sheet10.Range("F63").Value
.Range("I12").Value = Sheet1.Range("B6").Value



End With
End Sub

Please Login or Register  to view this content.

Thanks for letting me know about the rules. I have reposted and hopefully I did this correctly. Thanks again.