Code
With rngTarget
For lcol = 1 To .Columns.count
For lrw = 1 To .Rows.count
rcArray(lrw, lcol) = .Cells(lrw, lcol).Text
Next lrw
Next lcol
End With
Hi I am trying to alter the above array to skip certain columns and I got this far, however the output is blank when passing the array to the multi column list box.
I could alter the order of the columns in the source data if there isn't a work around but I am sure it must be possible.
Code
With rngTarget
For lcol = 1 To array(1,2,3,5,8)
For lrw = 1 To .Rows.count
rcArray(lrw, lcol) = .Cells(lrw, lcol).Text
Next lrw
Next lcol
End With
Cheers
Dave