xls2txt

[caesar.l]

puedes probar con

Sub guardar()

Dim Directorio As String
Dim Nombre_Archivo As String


Nombre_Archivo = "librotxt"

Application.DisplayAlerts = False
Directorio = "C:\"
ActiveWorkbook.SaveCopyAs Filename:=Directorio & Nombre_Archivo & ".txt", FileFormat :=xlText, CreateBackup:=False
Application.DisplayAlerts = True

End Sub

aunque guarda la primera hoja, no sé si tienes los datos en varias hojas