de planilha para txt

Sub XTo_txtMauro()
    ' Author: Date: Contact:
    ' Exportando o conteúdo de uma planilha para um arquivo texto.
   
    Dim nFile As String
    Dim nSheet As String
    Dim nExtension As String
   
        Dim sRange As Range
        Dim sRowInicio As Long
        Dim FinalRow As Long
   
        'Verifica a última linha preenchida
        FinalRow = Range("A65536").End(xlUp).Row
               
        'Define o Range Linha Inicial e Linha Final
        Set sRange = Range("A1" & ":A" & FinalRow)
   
    Let nFile = "C:\jrichard.CI02"
    Let nSheet = "CONCATENADO"
   
            'Let nExtension = "A1:A1900"
            Let nExtension = sRange
   
    Open nFile For Output As #1
   
    Sheets(nSheet).Select
   
    For Each nOccurs In Range(nExtension)
    Print #1, nOccurs
    Next
   
    Close #1
   
    MsgBox "Exportado!"
   
    Sheets(nSheet).Select
End Sub