Excel Exporting

[estone4009]

I have an excel file that has one column and 39,980 rows. I need to take that and have it put it into a comma seperated file. Ex. A1,A2,A3,A4 I need all of these in a single line file.

Any ideas?

Thanks!

 

[SkipVought]

Sub test()
    For Each r In Range([A1], [A1].End(xlDown))
        s = s & r.Value & ","
    Next
    s = Left(s, Len(s) - 1)
    fNbr = FreeFile
    Open "c:\mytext.csv" For Output As #fNbr
    Write #fNbr, s
    Close #fNbr
End Sub

Skip,

_{[red]Be advised:[/red]When Viscounts were guillotined just as they were disclosing where their jewels were hidden, it shows to go that you should...
Never hatchet your Counts before they chicken!}