Create new workbook named for Cell in original workbook and copy some sheets from original

[ANDREAAS]

Good Day Experts

I need a bit of help with my code please.

I have a workbook that will serve as a master workbook which i need to have a button in that the user can press to create a new workbook with name based on

Please Login or Register  to view this content.

Please Login or Register  to view this content.

needs to be created in the new workbook with all data from the original workbook in, but formulas removed.

The code i have below(modified from code found on the web....thanks to the original creator if you see this ), does all that, but the sheets created in the new workbook comes out blank. What am i missing?

Please Login or Register  to view this content.

[Marc L]

… as a starter :

Sub Demo() 
        Dim Ws As Worksheet 
        Application.ScreenUpdating = False 
        Worksheets([{"NEW MASTER ORDER FORM","Item Qty Pivot","Employee Deduction Pivot"}]).Copy 
    With ActiveWorkbook 
        For Each Ws In .Worksheets 
            With Ws.UsedRange 
                .Formula = .Value 
            End With 
        Next 
            .SaveAs ThisWorkbook.Path & Application.PathSeparator & .Sheets("NEW MASTER ORDER FORM").[F2].Text 
    End With 
        Application.ScreenUpdating = True 
End Sub  

Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

[ANDREAAS]

Works like a bomb.

Thank you very much Mark.

[Marc L]

Thank you very much Marc.

Thanks for the rep' !

[Kaper]

I know it's solved already, but looking at your original code, you were pretty close.
The issue was: you were activating destination workbook before copying. So the active sheet was not the one you activated just before (in source), but one in the destination workbook. And of course this workbook has been created just a moment before and the sheet to be copied was empty.

So the minor correction:

Please Login or Register  to view this content.

[ANDREAAS]

thank you...very helpful