Boa tarde!!

Leia:
http://chandoo.org/wp/2015/10/28/save-r ... using-vba/
Use a Pesquisa do fórum!
https://cse.google.com.br/cse?cx=partne ... gsc.page=1

Att

Muito bom alexandre!

conseguir usar o modelo que vc disponibilizou "codigo abaixo", porem minha planilha tem campos de horas e na saída do txt sai de outra forma, como ajusto isso?

Sub saveText2()
    Dim filename As String, lineText As String
    Dim myrng As Range, i, j
    
    filename = ThisWorkbook.Path & "textfile-" & Format(Now, "ddmmyy-hhmmss") & ".txt"
    
    Open filename For Output As #1
    
    Set myrng = Range("data")
    
    For i = 1 To myrng.Rows.Count
        For j = 1 To myrng.Columns.Count
            lineText = IIf(j = 1, "", lineText & ",") & myrng.Cells(i, j)
        Next j
        Print #1, lineText
    Next i
    
    Close #1
End Sub

Boa noite!!

Veja se isso ajuda.

Sub saveText2V2()
    Dim rRange As Range
    Dim ws As Worksheet
    Dim stTextName As String

    On Error Resume Next
    Application.DisplayAlerts = False
    Set rRange = Range("data")
    On Error GoTo 0
    Application.DisplayAlerts = True
     
    If rRange Is Nothing Then
        Exit Sub
    Else
        stTextName = "textfile-" & Format(Now, "ddmmyy-hhmmss")
        Set ws = Worksheets.Add()
        rRange.Copy ws.Cells(1, 1)
        ws.Move
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs _
        filename:="C:AleVBADownloads" & stTextName, _
        FileFormat:=xlText
        ActiveWorkbook.Close
        Application.DisplayAlerts = True
    End If
     
End Sub

Att

Perfeito!!!!

alexandrevba, mais uma vez obrigado.
abs