VBA：260のワークシートを含むファイルの式に値を変換する

Question

ワークブック内のすべてのセルを数式から値に変換する必要があります。 これは私が下記のコードを使用したかったのですが、小規模なファイルでも機能しましたが、260のワークシートを持つファイルに使用すると、xlPasteValuesに「エラー1004」が表示されます。

Sub Formula_Zapper() 
Worksheets.Select 
Cells.Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues 
ActiveSheet.Select 
Application.CutCopyMode = False 
End Sub 

誰も私が大きなファイルのためにうまくいかない理由と私はこれを回避することができますか？

ワークシートの数を減らして複数のラウンドを実行することで回避しようとしましたが、このラウンドで選択したいワークシートを手動で追加する手動配列を作成したくないという問題があります。

Forループを使用してもう一方のワークシートを選択しようとしましたが、しようとするとPCがクラッシュしました。 VBAにワークシート1〜50を同時に選択させる方法はありますか？

ご協力いただきありがとうございます。私は本当にここで迷っています。ここで

Answer 1

は、ワークシートは次のようになりますどのようなRange.Copy

Sub ReplaceFormulaeWithValues() 
    Application.ScreenUpdating = False 
    Application.Calculation = xlCalculationManual 
    Dim ws As Worksheet 

    For Each ws In ThisWorkbook 
     ws.UsedRange.Value = ws.UsedRange.Value 
    Next 

    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True 
End Sub