copy range from excel and paste to text file

Hi,
i don't see any marks (")

Possibly adding this after setting the Workrng...

    Dim i As Long
    For i = 1 To WorkRng.Cells.Count
        WorkRng.Cells(i) = Replace(WorkRng.Cells(i), Chr(34), Chr(32))
    Next i

where to add your code?

As I stated, after the range Workrng was set...

Sub ExportRangetoFile()

Dim wb As Workbook
Dim saveFile As String
Dim WorkRng As Range
On Error Resume Next
xTitleId = "Select Range"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    Dim i As Long
    For i = 1 To WorkRng.Cells.Count
        WorkRng.Cells(i) = Replace(WorkRng.Cells(i), Chr(34), Chr(32))
    Next i

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Application.Workbooks.Add
WorkRng.Copy
wb.Worksheets(1).Paste
saveFile = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
wb.SaveAs FileName:=saveFile, FileFormat:=xlText, CreateBackup:=False
wb.Close
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Try this

Sub SaveText()
    Dim oCella As Range
    Dim sTesto As String
    Open ThisWorkbook.Path & "\MyFileText.txt" For Output As #1
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.InputBox("Range", Type:=8)
    For Each oCella In WorkRng
        sTesto = Cells(1, oCella.Column).Text
        Print #1, sTesto & oCella.Text
    Next oCella
    Close #1
    Set oCella = Nothing
End Sub

https://www.excelforum.com/excel-pro...ls-to-csv.html

I can select the text
try now