Как сравнить первые столбцы двух книг Экселя и выявить разницу?

dim R1 as Range
dim R2 as Range
dim mV1 as Variant,mV2 as Variant
dim mBool as Boolean
 
for each mV1 in R1.cells
   for each mV2 in R2.cells
     if mV1.value=mV2.value then
       mBool=true
       exit for
     end if
     if mBool=false
       ...тут не найдено.. и выполняется код по внесению нового имени
     end if
   next mV2
next mV1
 
set ws1=nothing
set ws2=nothing

Sub Сверка()
  book = 'c:Temp
ew name.xls'
  If Dir(book) = '' Then
    MsgBox 'Нет файла'
  Else
    Dim msOld(): ReDim msOld(0): Dim msNew(): ReDim msNew(0)
    y = 2  ' запоминаю старые
    Do While Not IsEmpty(Cells(y, 1))
      ReDim Preserve msOld(UBound(msOld) + 1)
      msOld(UBound(msOld)) = Cells(y, 1)
      y = y + 1
    Loop
    Application.ScreenUpdating = False
    Workbooks.Open Filename:='C:TempNew Name.xls'
    yy = 2  ' ищу новые
    Do While Not IsEmpty(Cells(yy, 1))
      fl = True
      For i = 1 To UBound(msOld)
        If Cells(yy, 1) = msOld(i) Then
          fl = False
          Exit For
        End If
      Next
      If fl Then
        ReDim Preserve msNew(UBound(msNew) + 1)
        msNew(UBound(msNew)) = Cells(yy, 1)
      End If
      yy = yy + 1
    Loop
    ActiveWindow.Close:          ThisWorkbook.Activate
    For i = 1 To UBound(msNew):  Cells(y, 1) = msNew(i):  y = y + 1: Next
  End If
  MsgBox '', vbInformation, 'Готово'
End Sub

Sub Сверка()
  book = 'C:    emp
ew1.xls'
If Dir(book) = '' Then
    MsgBox 'Нет файла'
  Else
    Dim msOld(): ReDim msOld(0): Dim msNew(): ReDim msNew(0)
    y = 2  ' запоминаю старые
    Do While Not IsEmpty(Cells(y, 1))
      ReDim Preserve msOld(UBound(msOld) + 1)
      msOld(UBound(msOld)) = Cells(y, 1)
      y = y + 1
    Loop

Application.ScreenUpdating = False
    Workbooks.Open Filename:='C:    emp
ew1.xls'
    yy = 2  ' ищу новые
    Do While Not IsEmpty(Cells(yy, 1))
      fl = True
      For i = 1 To UBound(msOld)
        If Cells(yy, 1) = msOld(i) Then
          fl = False
          Exit For
        End If
      Next
      If fl Then
        ReDim Preserve msNew(UBound(msNew) + 1)
        msNew(UBound(msNew)) = Cells(yy, 1)
      End If
      yy = yy + 1
    Loop
    ActiveWindow.Close:          ThisWorkbook.Activate
    For i = 1 To UBound(msNew):  Cells(y, 1) = msNew(i):  y = y + 1: Next
  End If
  MsgBox 'done', vbInformation, 'Готово'
End Sub

Sub aaa()
Dim I As Long, K As Long
Dim obl As String, RList As Worksheet
    Workbooks('Old').Worksheets(1).Activate
    Set RList = Workbooks('Old').Worksheets(1)
    K = Range('A1').CurrentRegion.Rows.Count
    obl = 'A1:' & Cells(K, 1).Address
    Workbooks.Open FileName:='New.xls'
    For I = 1 To Range('A1').CurrentRegion.Rows.Count
      fval = Application.Match(Cells(I, 1).Value, RList.Range(obl), 0)
      If IsError(fval) = True Then
         K = K + 1
         RList.Cells(K, 1).Value = Cells(I, 1).Value
         obl = 'A1:' & Cells(K, 1).Address
      End If
    Next I
End Sub

Sub ssss()
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Dim R1 As Range, R2 As Range
 
Set WB1 = Workbooks.Open('***1.xls')
Set WS1 = ActiveSheet 'wb1.sheets(1)
Set WB2 = Workbooks.Open('***2.xls')
Set WS2 = ActiveSheet 'wb2.sheets(1)
Set R1 = WS1.Columns(1) 'Любой range  на WS1
Set R2 = WS2.Columns(1) 'Любой range  на WS2
 
'********* code
 
wb1.close true
wb2.close true
 
Set WB1 = Nothing
Set WS1 = Nothing
Set WB2 = Nothing
Set WS2 = Nothing
Set R1 = Nothing
Set R2 = Nothing
End Sub