Copy and open i new workbook - vba

Question

Hi All
I have the excel workbook "CENEO Quickview v.05.xlsm" with dozens of worksheets in it.
What I need is vba to :
1) Copy all Worksheets to new workbook with name: "CENEO Quickview 2015.02.15.xls"
Where 2015.02.15 is current date. I do not want to save it as a new workbook but only
open as a new workbook with the above name and with freezed formulas. After that:
2) Close the original file without saving "CENEO Quickview v.05.xlsm". Please note that the orignial file name could change in the future to for example: "CENEO Quickview v.022.xlsm".
Thanks for any suggestions

Answer 1

Re: "...this code must be placed in original file "CENEO Quickview 2015.02.15.xls"
In your initial post the original file was "CENEO Quickview v.05.xlsm" ?
To copy all the sheets in a workbook to a new workbook the following code can be used.
Note: that a new workbook has the default name of BookX until the file is saved.
         The new workbook can be made to appear as if it had a name applied by entering text in the window caption.
Sub CreateNewWorkbook()
 Dim WB As Workbook
 Dim sht As Object
 Set WB = Workbooks.Add
 For Each sht In ThisWorkbook.Sheets
    sht.Copy after:=WB.Sheets(WB.Sheets.Count)
 Next
 WB.Windows(1).Caption = ThisWorkbook.Name & Format(Date, "yyddmm") & ".xls"
End Sub
To run code when a workbook opens, use the Workbook_Open event  found in the ThisWorkbook module.
In that module, in the top left dropdown, select "Workbook"
In the top right dropdown, you can select the appropriate event you need.
The code would look something like...
Private Sub Workbook_Open()
 Call CreateNewWorkbook
End Sub
Note:  Copying worksheets to a new workbook does not copy any code modules.
You probably don't want to go there as it can get messy.  Other contributors may offer code to do this, I won't.
Jim Cone
https://jumpshare.com/b/O5FC6LaBQ6U3UPXjOmX2