Excel VisualBasic Script

Sub formulaDemo()
    Dim I As Integer
    For I = 1 To 10
           Cells(21, I).Formula = "=STDEV(" & Chr(I + 64) & "2:" & Chr(I + 64) & "20)"
    Next I
End Sub