How to read excel data column by column

[m09366023695]

I'm using this code to get an excel data:

Set ws = oBook.Sheets("Sheet1")
 Set rngSize = ws.UsedRange

 Dim row As Range
        For Each row In rngSize.Rows
            Dim cell As Range
            For Each cell In row.Cells
                MsgBox cell.value
            Next cell
Next row

but it read data row by row. I want to read data column by column.

A1,A2,A3 etc.

B1,B2,B3 etc.

[Ed__Jobe]

See my reply to your other Excel question.