This can be done by macro

Sub Test()
Open "C:\myCSVFile.csv" For Input As #1 'change as required
Do While Not EOF(1)
Line Input #1, FileLine
Counter = Counter + 1
X = Split(FileLine, ",")
For N = 0 To UBound(X)
Cells(N + 1, Counter) = X(N)
Next N
Loop
Close #1
End Sub


--
mrice

Research Scientist with many years of spreadsheet development experience
------------------------------------------------------------------------
mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931
View this thread: http://www.excelforum.com/showthread...hreadid=548235