проблема с тем, как можно искать значение в текстовом поле VBA?

Question

Ну, моя проблема в том, что у меня есть этот код, поэтому, когда я запускаю его «звезда», чтобы работать, и после нескольких минут сбоя иногда просто превосходно закрываются, а иногда перезапускают программу.

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

sub search 
Dim ws As Worksheet
Dim tBox As Object
Dim stBox As String
     Application.ScreenUpdating = False
    Sheet1.Activate
    For i = 1 To 4298
    ExcelPath = Cells(i, 1).Value
    Workbooks.Open Filename:=ExcelPath
    ActiveWindow.Visible = False
    Set ws = ActiveSheet
    For Each tBox In ws.Shapes
    On Error Resume Next
    stBox = " "
    newv = " "
    tBox.TextFrame.Characters.Text = Replace(stBox, newv, newv)
    On Error GoTo 0
    Next
    ActiveWorkbook.CheckCompatibility = False
    ActiveWorkbook.Close True
    A = (i / 4298) * 100
    Application.StatusBar = Mid(A, 1, 4)
    Next i

end sub