Цикл не очищает кавычки

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

Мне нужен код, чтобы открывать другие текстовые файлы и удалять кавычки из каждого из них.

Dim pathfile As String
Dim pathway As Workbook
Dim localcode As String
Dim wb As Workbook
Dim wayfile As String
Dim i As Integer

Application.ScreenUpdating = False
Application.DisplayAlerts = False

wayfile = "pathfile"
Set wb = Workbooks.Open(wayfile)
Range("A1").Select

i = 1

Do While Not IsEmpty(Range("a" & i))
    Math = ActiveCell
    pathfile = "pathfile"
    pathfile = Replace(pathfile, "math", Math)
    Set pathway = Workbooks.Open(pathfile)
    Range("A1").Select

    Do While ActiveCell.Value <> ""
        ActiveCell.Replace What: = """", Replacement: = "", _
        LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        ActiveCell.Offset(1, 0).Select
    Loop

    pathway, saveas fileformat:=xlTextWindows
    pathway.Close
    pathfile = "pathfile2"
    pathfile = Replace(pathfile2, "math", Math)
    Set pathway = Workbooks.Open(pathfile)
    Range("A1").Select

    Do While ActiveCell.Value <> ""
        ActiveCell.Replace What: = """", Replacement: = "", _
        LookAt:=xlPart, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        ActiveCell.Offset(1, 0).Select
    Loop

    pathway, saveas fileformat:=xlTextWindows
    pathway.Close
    Set wb = Workbooks.Open(camin)
    Range("A1").Select
    ActiveCell.Offset(1, 0).Select
    i = i + 1
Loop

Application.ScreenUpdating = True
Application.DisplayAlerts = True

wb.Close

MsgBox "ok"