Save As Separate File

I want to create a new file from an existing workbook's sheet and save it with a name that comes from the original sheet. Here's the code i'm working with

current_window = Sheets("Mapping").Range("C3").Value 'current Window name
New_file = Sheets("Mapping").Range("c4").Value 'new file name to save as

Workbooks.Add
new_window = ActiveWorkbook.FullName 'sets new file window

Windows(current_window).Activate

'Copy data in old sheet to new workbook
Sheets("PNL Summary").Select
Cells.Select
Selection.Copy

Windows(new_window).Activate
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False


Sheets("Sheet1").Name = "Jake"
Application.CutCopyMode = False

'Save new workbook with file name that was set in old workbook
ActiveWorkbook.SaveAs NewFile ' I get an error here each time