Sub Find_Matches()
  MsgBox "Процедура Find_Matches вызвана"
  Dim CompareRange As Variant, x As Variant, y As Variant
  Dim R3 As Range
  Dim R4 As Range
  Set R4 = Range("A1:C100")
  Set R3 = Range("E1:G100")
  'R4.Select
  'Set CompareRange = R3
  For i = 1 To R4.Rows.Count
    Flag = 0
    For j = 1 To R3.Rows.Count
      If ((R4.Cells(i, 2) <> "") And (R3.Cells(j, 2) <> "")) Then
        If ((R4.Cells(i, 1) = R3.Cells(j, 1)) And (CDbl(R4.Cells(i, 2)) = CDbl(R3.Cells(j, 2)))) Then
          Flag = Flag + 1
        End If
      End If
    Next j
    If (Flag = 0) Then
      Range(R4.Cells(i, 1), R4.Cells(i, 2)).Interior.ColorIndex = 5
    End If
  Next i
End sub