it come up with error on following line:

cell.Value = Round(cell.Value2 * 1440 / iMin, 0) * iMin / 1440