Exportar dados em TXT

[Holocausto]

Olá pessoal estou precisando criar uma macro para exportar um intervalo de dados de um planilha para txt, fiz aqui mas não deu muito certo.

Ex: Os dados que serão exportados compreendem no intervalo (E6:S58).

Sub Macro1()
'
' Macro1 Macro

    Range("E6:S58").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ChDir [COLOR="Red"]"C:\Users\Thiago\Desktop"[/COLOR]
    ActiveWorkbook.SaveAs Filename:="C:\Users\Thiago\Desktop\Fechamento LF.txt", _
        FileFormat:=xlUnicodeText, CreateBackup:=False
    Sheets("Fechamento").Select
    ActiveWindow.SelectedSheets.Delete
    Sheets("Fechando").Select
    MsgBox "Exportado!", , ".: A&A - Information"
End Sub

-O local que o arquivo será salvo teria que ser um local público.

-Não pode ficar aparecendo a msg para confirmar exclusão da planilha como fiz no código.

-Não modificar o formato da planilha ao salvar e fecha-lá.

Alguém tem alguma ideia de como posso fazer isto?

Obs:Não tenho muito sobre macros.

[Márcio Rodrigues]

Olá Holocausto

Você quer copiar dados de uma planilha Excel e salvar estes dados em um arquivos texto?

ActiveWorkbook.SaveAs Filename:="C:\Users\Thiago\Desktop\Fechamento LF.txt" você esta salvando um arquivo texto ou um arquivo Excel?

Márcio