Visual Basic para Aplicaciones - Exel a Txt mediante VB

Hola!!! Alguien puedo ayudarme con algunas ideas de cómo pasar un archivo de excel a texto???

Gracias......

hola, te adjunto una macro para lo que pides:
Public Sub Guardartxt()
Dim wbNuevo As Workbook
Worksheets("Hoja1").Copy
Set wbNuevo = ActiveWorkbook
Application.DisplayAlerts = False
'obtiene directorio y nombre
fileSaveName = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")

If fileSaveName <> False Then
wbNuevo.SaveAs _
FilenamefileSaveName, FileFormat:=xlTextPrinter, CreateBackup:=False
End If

Application.DisplayAlerts = True
Set wbNuevo = Nothing
End Sub

si necesitas que te explique algo preguntame sin problemas