Обработка таблиц по условию

Sub Проверить_книги_и_пометить()
    Dim Prefix As String, Suffix As String, OldName As String, NewName As String, TargetSheet As String
    Dim a, b, c
    MyPath = "C:\temp\"
    Suffix = "*.xls" 'Шаблон имени файла
    Rasshir = ".xls"
    TargetSheet = "Лист1" 'имя листа проверки условия
    'On Error Resume Next ' Если листов TargetSheet может не существовать, то раскоментировать строку
    OldName = Dir(MyPath & Suffix)
    Do Until OldName = ""
        a = ExecuteExcel4Macro("'" & MyPath & "[" & OldName & "]" & TargetSheet & "'!" & Range("A2").Address(, , xlR1C1))
        b = ExecuteExcel4Macro("'" & MyPath & "[" & OldName & "]" & TargetSheet & "'!" & Range("B4").Address(, , xlR1C1))
        c = ExecuteExcel4Macro("'" & MyPath & "[" & OldName & "]" & TargetSheet & "'!" & Range("E8").Address(, , xlR1C1))
        If a + b + c > 10 Then
            OldName = MyPath & OldName
            NewName = Left(OldName, Len(OldName) - Len(Rasshir)) & "_false" & Rasshir
            Name OldName As NewName
        End If
        OldName = Dir
    Loop
End Sub

Sub Проверить_книги_и_пометить1()
Dim a, f, MyPath
MyPath = "C:\temp\" 'можно без слеша в конце
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each f In CreateObject("scripting.filesystemobject").getfolder(MyPath).Files
    If f.Name Like "*.xls*" Then
        With Workbooks.Open(f.Path)
            a = [A2+B4+E8>10] 'критерий
            .Close False
        End With
        If IsError(a) Then a = False
        If Not a Then
            a = InStrRev(f.Name, ".") 'положение точки расширения
            f.Name = Left(f.Name, a - 1) & "_false" & Mid(f.Name, a)
        End If
    End If
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

msgbox "Выполнение закончено"