Macro para convertir hoja de excel 2010 a txt

Prueba este código:

Sub Macro1()
Dim wks As Worksheet
Dim nombre As String
i = 1
For Each wks In ActiveWorkbook.Worksheets
Sheets(i).Select
nombre = ActiveSheet.Name
    ActiveWorkbook.SaveAs Filename:="C:\RUTA\" & nombre & ".csv", _
        FileFormat:=xlCSVMSDOS, CreateBackup:=False
i = i + 1
Next
End Sub

Deberás cambiar la palabra RUTA por la ruta donde quieras que se guarden los csv