Bom dia!!

Não entendi bem, seria isso?

Sub SheetsToText()
'Jerry Beaucaire  (12/11/2009)
Dim ws As Worksheet, wb As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False

wb = ActiveWorkbook.Name

For Each ws In Worksheets
    If ws.Name <> "A-K" And ws.Name <> "L-S" And ws.Name <> "T-Z" Then
        ws.Activate
        ActiveWorkbook.SaveAs Filename:=ws.Name & ".txt", FileFormat:=xlText, CreateBackup:=False
        'For Excel 2007+ use   FileFormat:=xlTextWindows
    End If
Next ws

ActiveWorkbook.SaveAs Filename:=wb, FileFormat:=xlNormal, CreateBackup:=False

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub TxtWriter()
'Jerry Beaucaire  (10/23/2009)
'Write three cells per row from all worksheets into a single comma-delimited text file
Dim cell As Range, LR As Long
Dim ws As Worksheet, s As String
Open "C:My DocumentsTestmyfile.txt" For Append As #1

    For Each ws In Worksheets
        LR = ws.Range("A1").SpecialCells(xlCellTypeLastCell).Row
        For Each cell In ws.Range("A1:A" & LR)
            s = cell.Text & "," & cell.Offset(0, 1).Text & "," & cell.Offset(0, 2).Text
            Print #1, s
        Next cell
    Next ws

Close #1
End Sub

Oi, Alexandre obrigado pela ajuda.

Tinha pensando em uma coisa bem simples mesmo. Quando vou salvar a panilha e dou um salvar como tenho a possibilidade de salvar como arquivo .txt. Só gostaria de deixar um layout padrão. Seu código faz isso? Não sou expert em vb

Boa tarde!!

Experimente os códigos que eu enviei, depois poste aqui, se deu certo!

Obs:

Seu código faz isso?

Não é meu, o autor é o 'Jerry Beaucaire .
Att