Cambiar formato a varias excel con una macro

Tengo un archivo excel muy pesado y lo he dividido en varios archivos por medio de una macro, pero los archivos me los guarda en formato xlm y me gustaría que se guardaran en csv.

Que tengo a hacer.

gracias un saludo

Sub
Archivo_en_3()
Application.ScreenUpdating
= False
Dim Sig As
Long, Salto As Long
Salto = 100
For Sig = 1
To 502 Step Salto
Workbooks.Add
ThisWorkbook.Worksheets("ALFAROMEO_2").Range("a"
& Sig).Resize(Salto).EntireRow.Copy
ActiveSheet.Range("a1").PasteSpecial
xlPasteAll
Range("a1").Select
ActiveWorkbook.SaveAs
"ALFAROMEO_a" & Sig \ Salto + 1, xlWorkbookNormal
ActiveWorkbook.Close False
Next
End Sub