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

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