Sub csvSave() Workbooks("MyWorkbook.xls").SaveAs Filename:=ActiveWorkbook.Path & _ "\test.csv", FileFormat:=xlCSV End Sub