Macro - Create Tab Delimited *.txt from range

HansVogelaar 

Same outcome. Won't change.

But! I concatenated the cell I want with double quotes " '' " and it exports as it is supposed to!

Also, the code creates a file with countless blanks lines at the end, so I replaced the 

wt.Range("A" & r).Value = "'" & wt.Range("A" & r).Value

with 

ws.Range("A" & r).Value = "''" & ws.Range("A" & r).Value

and it stops right at the bottom of the range.

I don't know if it is correct but it works and returns no faults!

JoAvg 

What happens if you change the line

        wt.Range("A" & r).Value = "'" & wt.Range("A" & r).Value

to

        wt.Range("A" & r).Value = "''" & wt.Range("A" & r).Value

HansVogelaar 

Same outcome. No quote at the beginning.

Maybe it has to do with the fact that the prefixed single quote indicates the cell contents as text?

JoAvg 

Try this:

Sub SaveRangeAsText()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim wt As Worksheet
    Dim r As Long
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set ws = Worksheets("B")
    Set wb = Workbooks.Add(xlWBATWorksheet)
    Set wt = wb.Worksheets(1)
    wt.Range("A1:C15").Value = ws.Range("A36:C50").Value
    For r = 1 To 15
        wt.Range("A" & r).Value = "'" & wt.Range("A" & r).Value
    Next r
    wb.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\AsBuilt\blocks.txt", _
        FileFormat:=xlUnicodeText
    wb.Close Savechanges:=False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

HansVogelaar 

Hans I got a question regarding the output txt file.

Below is the the way CAD software handles the exported file, space in the middle is a single tab.

However, when I save the file, the apostrophes at the beginning are missing, so is there a workaround to the code to make it export like the above?

Cells with the apostrophe are A36:A50.

Thanks ever so much for your help.

HansVogelaar 

Actually it does work!!!

I had deleted the AsBuilt folder and forgot to create it again for this code!!!

Thank you very much you have been of great help!!!!

HansVogelaar

No, same thing...