OK I think I foung the solution. I put your
ThisWorkbook.Saved = True
just after the
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\1.csv", FileFormat:= _
xlCSV, CreateBackup:=False


and now it doesn't ask me anything (except my questions of course) but
now save the csv file with commas as separators.


Please confim me is it the proper and stable solution.

Thanks Again
PAT

This is last question I promise
Speaking about
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\1.csv", FileFormat:= _
xlCSV, CreateBackup:=False

Is there any way to replace C:\Documents and Settings\1.csv" with the
same folder as 1.xls (the origunal excel file)

PAT