Экспорт данных Excel в текстовый файл без добавления символов паранетеза

Question

У меня есть макрос Excel, который экспортирует данные из столбца A в текстовый файл.Однако каждый раз при экспорте каждая строка в текстовом файле начинается и заканчивается символом парантеза.Обычно я делаю поиск и удаление, но хотел бы использовать код, чтобы избежать этого.

Sub Macro4()
Dim wb As Workbook
Set wb = ActiveWorkbook
Sheets("Concatenate").Columns("A:A").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
    wb.Path & "\" & Left(wb.Name, InStr(wb.Name, ".") - 1) & ".txt", _
    FileFormat:=xlText, CreateBackup:=False
ActiveWorkbook.Close saveChanges:=True
End Sub