Sub ArrayToColumns() Dim MyArray() Dim Cols As Integer Cols = 5 ReDim MyArray(1 To Cols) Cells.Clear i = 1 For c = 1 To Cols MyArray(c) = i i = i + 1 Next c Range(Cells(1, 1), Cells(1, Cols)) = MyArray End Sub