como hacer macro que me guarde de xls a csv automaticamente a 1000

[anfegam]

Bunas tardes tengo 100 archivos y necesito guardarlos como csv pero necesito ejecutar esta macro 1000 veces que solo me cambie la extencion gracias

[Miguel Angel Perez]

esta es la rutina pero tienes que copiarla en cada una de las hojas

Sub Macro1()

'

' Macro1 Macro

'

' Acceso directo: CTRL+c

'

ActiveWorkbook.SaveAs Filename:= _

"C:\Documents and Settings\Miguel Angel\Mis documentos\macro para guardar cvs.csv" _

, FileFormat:=xlCSVMSDOS, CreateBackup:=False

End Sub