It doesn't do anything at all? Where did you put the sub? If you put the sub in the WorkSheets' Code page it should work without any modification
You have another sub that this code is supposed to be part of?
You can enclose the For... Next loop in a With Sheets("Sheet?")... End With and it should work in the ThisWorkbook Code page or in a Module
And you can add .Value to the Cells(?, ?) assignments.