Chyba VBA 1004 na range.value pri kopírovaní pracovného hárka - excel-vba, vba, excel

Nižšie je kód, ktorý používam, ale to vyvolá 1004 chybu na range.value linka. Úspešne však skopíruje pracovný hárok bez vzorcov (iba hodnoty). Je to len to, že spustenie tohto stále vyvoláva chybu 1004.

Sub test1()
Dim wbNew As Workbook
Dim wks As Worksheet
Set wbNew = Workbooks.Add(xlWBATWorksheet)
ThisWorkbook.Worksheets.Copy After:=wbNew.Worksheets(1)
Application.DisplayAlerts = False
wbNew.Worksheets(1).Delete
Application.DisplayAlerts = True
Application.Calculation = xlCalculationManual

For Each wks In wbNew.Worksheets
wks.UsedRange.Value = wks.UsedRange.Value
Next wks
Application.Dialogs(xlDialogSaveAs).Show
End Sub

odpovede:

Aký je účel funkcie wks.usedrange.value = wks.usedrange.value? Táto otázka je nezávislá od toho, či príkaz povoľuje VBA.

Nechápem, prečo sa to snažíte urobiť:

For Each wks In wbNew.Worksheets
wks.UsedRange.Value = wks.UsedRange.Value
Next wks

Je to ako povedať, že x = x