Duane,

Try adding these lines to the end of your code:

With AllStockDataWorksheet
.Range(.Cells(rownumber, 4), .Cells(rownumber, 4).End(xlDown)) _
.TextToColumns DataType:=xlDelimited, Comma:=True
End With

HTH,
Bernie
MS Excel MVP



"Duane L Kibby" wrote in message
...
Hi,
The stock data ".csv" file downloaded from the internet displays the seven
comma delimited items all in one column.

2.91,200730,2.63,3.34,3.00,2.91,3.05
22.70,362487,22.65,24.19,22.06,21.91,22.83
13.28,115617,12.42,15.90,13.93,13.10,14.00

The code segment: (excel 2000)

Set AllStockDataWorksheet = Workbooks(1).Worksheets(4)
Set AllStockDataResults = AllStockDataWorksheet.QueryTables _
.Add(Connection:="URL;http://finance.yahoo.com/d/quotes.csv?s=" &
Left ( SymbolString, Len(SymbolString) - 1) & "&f=l1va2c1&e=.csv", _
Destination:=AllStockDataWorksheet.Cells(RowNumber , 4))


With AllStockDataResults
.Refresh (BackgroundQuery)
End With

For some reason the data is not distrubuted across the columns, but is all
piles in one. I can do manually, but I need it to be programmatically.

Thanks Duane