Saving a Workbook using a variable to name it

[christophermartin795]

Hi
I copy a range from one workbook, then creating a new book to save this data in.
I’m trying to save this newly created workbook to a directory and name the workbook as a value of a range in that newly created workbook. That is range(“G1”) which is a date in Excel numeric (43735).
My code for this is: -
Sub NewWorkbook()
Windows("Trader.xlsm").Activate
Range("B22:R22").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Windows("Personal.xlsm").Activate
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
ActiveWorkbook.SaveAs Filename:="C:\Users\USER\New TestnTrade\NewWorkbook.xlsm", _

ActiveWindow.Close
End Sub
Trader.xlsm is a workbook that I copy a range from and paste that range to Newworkbook.
Instead of saving the new workbook as Newworkbook, I would like to save it as the value that appears in Range (“G1”) of this book (a numeric date).
Chris

 

[DanteAmor]

It means you have an error from your original macro.
I don't have an office 365 version, I hope someone else can put the appropriate code.

 

[christophermartin795]

Thanks Dante
chris

 

[DanteAmor]

Sorry for not being able to help a little more.