Verwende die passende Methode dazu:
Kurzform:
ActiveSheet.SaveAs Filename:=ThisWorkbook.Path & Split(ThisWorkbook.Name, ".")(0), _ FileFormat:=XlFileFormat.xlCSV
Langform