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