各ワークシートで単純なコピー/ペーストループが機能しない

Question

ブック内のすべてのワークシートをループ処理しようとしています。各シートで、あるセルから値をコピーし、その値をそのワークシート内の別のセルに貼り付けてから、ワークブックを続けます。私はしかし、すべてのワークシートをループを書いたコードは、シートにコピーペーストを行い、そのマクロが実行されたときに...

Sub CleanUp() 

Dim ws as Worksheet 

For Each ws in ThisWorkbook.Sheets 
    Range("BB2").Copy Range("A1") 
Next ws 

End Sub 

は実際に、私は変化のより複雑なシリーズを実行するにはしかし、私はこれを正しく動作させることさえできません。

Answer 1

は、各範囲にワークシートを追加します。

Sub CleanUp() 

Dim ws as Worksheet 

For Each ws in ThisWorkbook.Sheets 
    ws.Range("BB2").Copy ws.Range("A1") 
Next ws 

End Sub 

Answer 2

速く実行できる代替ソリューション：

Sub CleanUp() 

Dim ws as Worksheet 

For Each ws in ThisWorkbook.Sheets 
    ws.Range("A1").Value = ws.Range("BB2").Value 
Next ws 

End Sub