Match data different workbook and different order - vba

Question

I'm trying to match name data from 2 different worksheet and from 2 different workbook. And I'm already create macros vba. But this macros is for the data type when the data is in the same order, how if the data isn't in the same order?
example of the name data
In first workbook
Name
Andre
Renata
Marie
In second workbook
Name
Andre
Marie
Renata
Using my macros the result for above data is NOT MATCH. But I want the result for above data is MATCH.
and this is my macros vba
Sub matchdata_Click()
Dim rng1 As Range, rng2 As Range
Dim iRow As Long
Dim diffs As String
With Workbooks("A.xls").Worksheets("1")
Set rng1 = .Range("A1", .Cells(.Rows.Count, "A").End(xlUp))
End With
With Workbooks("B.xlsx").Worksheets("1")
Set rng2 = .Range("M3", .Cells(.Rows.Count, "M").End(xlUp))
End With
For iRow = 1 To WorksheetFunction.Max(rng1.Rows.Count, rng2.Rows.Count)
If rng1(iRow) <> rng2(iRow) Then diffs = diffs & iRow & vbLf
Next
If diffs <> "" Then
MsgBox "Different name in rows:" & vbCrLf & vbCrLf & diffs
Else
MsgBox "All names match"
End If
Kindly help me if you know how to do it

Answer 1

a small possible solution without ranges (and the cells' coodinates can be changed according to your needs):
Option Explicit
Sub check()
Dim i As Integer, j As Integer
Dim found As Boolean
i = 1
While Workbooks("A.xls").Sheets(1).Cells(i, 1).Value <> ""
j = 1
found = False
While Workbooks("B.xls").Sheets(2).Cells(j, 13).Value <> ""
If Workbooks("A.xls").Sheets(1).Cells(i, 1).Value = Workbooks("B.xls").Sheets(2).Cells(j, 13).Value Then found = True
j = j + 1
Wend
If found = False Then
Workbooks("A.xls").Sheets(1).Cells(i, 1).Interior.ColorIndex = 3
End If
i = i + 1
Wend
End Sub