Sub From_sheet_make_array_col()
      Dim myarray As Variant
      myarray = Range("A1:A10").Value

      'Looping structure to look at array.
      For i = 1 To UBound(myarray)
        MsgBox myarray(i, 1)
    Next
   End Sub
Sub From_sheet_make_array_row()
      Dim myarray As Variant
      myarray = Range("A1:J1").Value

      'Looping structure to look at array.
      For i = 1 To UBound(myarray)
        MsgBox myarray(i, 1)
    Next
   End Sub

Hi

I followed up on an earlier post from 2007 to create an array from a range,
but all the examples I can find seem to work on rows and not columns.

The first piece of code works for rows, but the second piece only works for
the first column.

Having done some reading I'm guessing it's something to do with UBound?

I actually want the user to select a range of columns and turn them into
strings that I can output to a text file...I'm at the very earlier stages!!