Use the Transpose function to turn the one column into one row
Sub TransposeArray() Dim myArray As Variant myArray = WorksheetFunction.Transpose(range("myTran")) MsgBox "The 5th element of the Array is: " & myArray(5) End Sub