i = 1 j = 0 For i = 1 To 10 Cells(i, 2) = "=stdev(r[" + CStr(j) + "]c1:r[" + CStr(j + 99) + "]c1)" j = j + 99 Next i