Problems Autosaving an excel file/sheet as Text
 

I am using Excel 2000 with a macro autosaving my results as a text file:

Sheets("Result").Select
Range("A:A").Select
Selection.NumberFormat = "General"
Sheets("Result").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Classeur3.txt",
FileFormat:=xlTextMSDOS _
, CreateBackup:=False
ActiveWorkbook.Close
Application.DisplayAlerts = True
Sheets("Base").Select
Range("A1").Select

I am creating the file for an interface to another system. If I do the copy;
paste and save manually the text file is perfect, if however I let the macro
run as above I receive a file with most of the lines opened and closed by
quotation marks! Can anyone help, I am at a loss for what to do!?