Supongamos que tengo unworkbook1.xlsm Con múltiples hojas de trabajo y lleno de varias fórmulas. Quiero crear un nuevoworkbook2.xlsx que se veríaexactamente lo mismo queworkbook1 pero en todas las celdas serían valores en lugar de fórmulas.

Tengo esta macro para copiar una hoja deworkbook1:

Sub nowe()

Dim Output As Workbook
Dim FileName As String

Set Output = Workbooks.Add
Application.DisplayAlerts = False

ThisWorkbook.Worksheets("Przestoje").Cells.Copy

Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=True, Transpose:=False

Selection.PasteSpecial Paste:=xlPasteFormats

FileName = ThisWorkbook.Path & "\" & "worksheet2.xlsx"
Output.SaveAs FileName

End Sub

pero el problema es que copia solo una hoja de cálculo y no la nombra como si estuviera enworksheet1. No me lo puedo imaginar.

Otro problema más es queworksheet2 se está abriendo después. No quiero hacer esto.

¿Cómo puedo resolver estos problemas?