Digamos que você deseja salvar o conteúdo da coluna A em um arquivo texto com o nome da coluna B, na pasta da coluna C.
Neste caso insira o código abaixo em um módulo e execute a macro:
Sub XLS2TXT()
Dim intRow As Integer
intRow = 1
Close
Do Until IsEmpty(Cells(intRow, 1))
Open Range("C1").Value & "\" & Cells(intRow, 2) & ".txt" For Output As #1
Print #1, Cells(intRow, 1).Value
Close
intRow = intRow + 1
Loop
End Sub
