Automatic save with csv-extension

[Gestron]

I'm using Office 97 at my work. Normally, the following code will save
worksheet to a csv-extension. But....VisBas stops at the 3th line wit
a run-time error '438'. What's the correct code or what am I doin
wrong ?

Sub export_csv()

ActiveSheet.Copy
ActiveWorkbook.SavesAs FileName:="C:\upload.csv", FileFormat:=xlCSV
CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False

End Su

 

[Earl Kiosterud]

Gestron,

"SavesAs." Typo. Should be SaveAs.