Este código está funcionando há muito tempo. Eu pensei que talvez eu acidentalmente pressionei uma tecla, mas não consigo ver. De repente eu recebo o erro:

Não é possível definir a propriedade NumberFormat da classe Range

no código abaixo:

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