Open Notepad and run find/replace

Hello,

I have the below code merging multiple .txt documents into one and then resaving it as a new .txt. We've run into an issue where quotation marks seem to be appearing at random in the new .txt document. When I walk through the macro in Excel there aren't any quotes so I'm assuming this has something to do with saving the file from excel to .txt. One possible fix that I can think of is to reopen the new file in notepad and do a find/replace to clear out the quotation marks and then save the file. I'd like to be able to add this step to the end of my macro so a browser window opens and lets the user select the file. Any help would be greatly appreciated.

Sub mergebooks1sheetsaveasTXT()
'
Dim varFilenames As Variant
Dim strActiveBook As String
Dim strSourceDataFile As String
Dim wSht As Worksheet
Dim allwShts As Sheets
Dim intResponse As Integer
Dim counter As Integer
Dim lRows As Long
Dim varResult As Variant
'
intResponse = MsgBox("This macro will combine all data from all worksheets" & vbCrLf & "from all selected files to a single worksheet in a new workbook. Continue?", vbOKCancel, "Combine Files")
If intResponse = vbOK Then
Workbooks.Add
strActiveBook = ActiveWorkbook.Name
' Create array of filenames; the True is for multi-select
On Error GoTo exitsub
varFilenames = Application.GetOpenFilename(, , , , True)

counter = 1

' ubound determines how many items in the array
On Error GoTo quit
Application.ScreenUpdating = False
While counter <= UBound(varFilenames)

'Opens the selected files
Workbooks.Open varFilenames(counter)
strSourceDataFile = ActiveWorkbook.Name

Set allwShts = Worksheets
For Each wSht In allwShts
' Select Entire UsedRange from Source File
wSht.Activate
ActiveSheet.UsedRange.Select
Selection.Copy

' Find end of usedrange in destination file
Workbooks(strActiveBook).Activate
Range("A1").Select
ActiveSheet.UsedRange.Select
lRows = Selection.Rows.Count
ActiveCell.Offset(lRows, 0).Select

' Copy & Paste All including Formatting
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select

Next wSht
Workbooks(strSourceDataFile).Activate
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True

' displays file name in a message box
MsgBox varFilenames(counter) & " Has Been Processed", vbOKOnly + vbInformation, "File Processed"

'increment counter
counter = counter + 1

Wend

quit:
If Err <> 0 Then
MsgBox "An Error Occurred Trying to open the File. Please close any open Excel files and try again", vbOKOnly + vbExclamation, "File Open Error"
On Error GoTo 0
End If
End If
exitsub:
On Error GoTo 0
Application.ScreenUpdating = True



Rows("1:1").Select
Selection.Delete Shift:=xlUp

'Retrieve file name to use for Save
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Text Files (*.txt), *.txt")

'If user specified file name, perform Save and display msgbox
If fileSaveName <> False Then
ActiveWorkbook.SaveAs Filename:=fileSaveName, FileFormat:=xlText

MsgBox "Save as " & fileSaveName
End If

ActiveWorkbook.Close False
ActiveWorkbook.Close False


End Sub

That worked perfectly, thanks

Thanks, the occurrence is extremely small and it's also very unlikely that anything else should come up once the macro is run, when I tested it I would have missed it if I blinked. I'll keep this in mind if anything should change though.