XlTextPrinter al pasar excel a txt divide las celdas que tienen más de 240 caractere, ¿Alguna solución?

En la siguiente macro uso xlTextPrinter dado que es el formato que me mantiene las tildes y no me muestra las líneas que contienen comas(,) entre comillas como si lo hacen otros formatos al pasar a txt. El inconveniente es que tengo celdas que contienen más de 240 caracteres y me las divide. Podrían ayudarme con una macro que guarde los datos de la columna A en un archivo plano con extensión .jfl, teniendo en cuenta que la columna A tiene más de 15 mil filas y el numero de filas es variable., la macro que estoy usando actualmente es la siguiente:

Sub atxt()

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Archivo .Dat").Select
If Range("A1") = 0 Then Exit Sub
If Error <> 0 Then
MsgBox "El archivo EPM Journal contiene " & Error & " líneas con errores. El archivo NO ha sido creado", vbInformation, "CREAR TXT"
Exit Sub
End If
nbre = Format(Now, "yymmdd_hh.mm")
n = Range("A6")
n1 = Right(n, 4)
'ActiveSheet.Range(Cells(1, 1), Cells(1, LR3)).Select
Columns("A:A").Copy
Workbooks.Add
ActiveSheet.Paste

 ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\ARCHIVO\" & "EPM Journal " & n1 & "_" & nbre & ".jlf", FileFormat:=xlTextPrinter, CreateBackup:=False

ActiveWorkbook.Close False
Worksheets("Archivo .Dat").Protect ("EIze2018!")
Worksheets("Datos de Origen").Protect ("EIze2018!")
MsgBox "Archivo EPM Journal: " & n1 & " creado", vbInformation, "CREAR TXT"
End Sub