このコードは何年も前から機能しています。誤ってキーを押したのではないかと思いましたが、見えません。突然エラーが発生します:
RangeクラスのNumberFormatプロパティを設定できません
以下のコードで:
Worksheets("Sheet1").Cells(y + k, x + j).Select
TempValue = Worksheets("Sheet1").Cells(y + k, x + j).Value
Worksheets("Sheet1").Cells(y + k, x + j).NumberFormat = "#,##0" //ERROR HERE
Worksheets("Sheet1").Cells(y + k, x + j).Value = TempValue