Поиск повторяющихся значений в нескольких книгах Excel

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("G:H")) Is Nothing Then
 
        If Application.CountIf(Range("G:H"), Target) > 1 Then
            Select Case MsgBox("Значение" & vbCrLf & vbCrLf _
                               & Target & vbCrLf & vbCrLf _
                               & "уже есть в диапазоне!" & vbCrLf & vbCrLf _
                               & "Уверены?", vbYesNo + vbQuestion, "Проверка ввода")
            Case vbYes
                Exit Sub
            Case vbNo
                Target.ClearContents
                Target.Select
            End Select
 
        End If
    End If  
End Sub

Sub Каталог_Цикл_Тест()  '''' такая же процедура есть в модуле класса
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' procedure Checked by test опосредованно
'
'  Каталог_Цикл.Class_Initialize ' обновить счётчик
    Dim sMsg As String
    With Каталог_Цикл
        Do
        '' так как сканируются все файлы/подфайлы, то поведение программы непредсказуемо
            sMsg = .Файл_Путь_Полный(ThisWorkbook.Path, "*.*", 4)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
            Debug.Print sMsg
            Sheets_All sMsg
        Loop While sMsg <> vbNullString
        .Class_Initialize
 
    End With
End Sub
 
Function Sheets_All(s As String) As String
' procedure NOT checked by test
    Dim wb As Workbook
    Dim ws As Worksheet
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''следующая строка открывает аксесс и все, что осилит
    Set wb = Workbooks.Open(s)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    For Each ws In wb.Worksheets
        Range_Walk ws
    Next
    wb.Close True
End Function