With a macro :-
'---------------------------------------
Sub savecsv()
ActiveWorkbook.SaveAs FileName:= _
"C:\book1.xxx", FileFormat:=xlCSV, _
CreateBackup:=False
End Sub
'---------------------------------------
Regards
BrianB
Use CupOfCoffee to speed up all windows applications
================================