Сохранить как Excel с тем же форматом, но без формулы

Question

У меня есть код, который извлекает вкладку из рабочей книги и сохраняет вкладку как отдельный лист. У меня все работает нормально, за исключением того, что формулы также извлекаются на новый лист. Как изменить код, указанный ниже, чтобы сохранить лист в том же формате, но без формул?

Sub PrintFile2()

'check if folder exists
If Dir("C:\Excel Workpaper\", vbDirectory) = "" Then
MkDir "C:\Excel Workpaper\"
End If

'print to defined folder
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim wb As Workbook
Sheets("Calculations").Copy
Set wb = ActiveWorkbook

With wb
.SaveAs "C:\Excel Workpaper\ " & Range("B7").Text & " - Excel Workpaper", 
FileFormat:=xlOpenXMLWorkbook
Application.DisplayAlerts = False
Application.ScreenUpdating = True

.Close False
End With

End Sub

Answer 1

Отметьте этот фрагмент, этот код изменит формулу на значения.

Dim sh As Worksheet
    For Each sh In ActiveWorkbook.Worksheets
        sh.Select
        With sh.UsedRange
            .Cells.Copy
            .Cells.PasteSpecial xlPasteValues
            .Cells(1).Select
        End With
        Application.CutCopyMode = False
    Next sh