Сравнение книг Excel

compare.bas

Sub compare()
Dim sh1 As Worksheet, sh2 As Worksheet
Set wb1 = ThisWorkbook
Set wb2 = Workbooks("Map B00 XP__20210617_.XLSX")
For Each sh1 In wb1.Worksheets
    Set sh2 = wb2.Worksheets(sh1.Name)
    If sh1.UsedRange.Address <> sh2.UsedRange.Address Then
        Debug.Print sh1.Name
    Else
        For Each c In sh1.UsedRange
            If c.Value <> sh2.Cells(c.Row, c.Column) Then
                Debug.Print sh1.Name, c.Address
            End If
        Next c
    End If
    'Debug.Print sh1.Name, sh1.UsedRange.Address, sh2.UsedRange.Address, sh1.UsedRange.Address = sh2.UsedRange.Address
Next sh1
End Sub