Copy tabs in new excel VBA

[Lauren123]

Hi, I have this code where it creates a new worksheet and copy those 2 tabs, but I would like it to also name the worksheet, is that possible?


Sub CopiaFactura()

ThisWorkbook.Sheets(Array("U-Main", "U-Detail")).Copy


End Sub

Thanks a lot!

 

[Fluff]

You are copying those sheets to a new workbook, not worksheet & you cannot name a workbook.
You'll need to saveAs.

 

[Lauren123]

And how do I do that?

 

[Fluff]

Like

Sub CopiaFactura()

ThisWorkbook.Sheets(Array("U-Main", "U-Detail")).Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Lauren123.xlsm", 52

End Sub