The following is code that I am using for a project. I want it to save as
based on a value that is in the source spreadsheet. It is supposed to open up
another spreadsheet and then save it as that value in the source spreadsheet.
the macro is stopping at the line where it needs to name the file, then save
it. can someone help?


Sub Upload()
Application.EnableCancelKey = xlDisabled
Sheets("Upload").Select

lastRow = Range("M10000").End(xlUp).Row

Range("M" & lastRow).Offset(1, 0).Select
ActiveCell.FormulaR1C1 = "END"


Call Copy_GL


Q = Range("n1")


Call VoucherNum





Range("a1:n1000").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste

'Application.Goto referenece:="gl_acct"
'ActiveCell.Offset(0, 1).Range("a1").Select
'ActiveCell.ClearContents
Rows("1:1").Select
Selection.Delete Shift:=xlUp

spath = "P:\Platinum\A_P IMPORT\Contractor Invoices\" & Q

ActiveWorkbook.SaveAs Filename:=[spath], _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False


ActiveWindow.Close
'windows("xxxxxxx").activate
Range("a3:m1000").ClearContents
Call name_fields









End Sub