Compare Two Workbooks and Highlight Differences

I need to compare column A from two separate workbooks and would like to hightlight the differences in each workbook. I only need to highlight the cell, not the entire row.

Attached are my two workbooks. The names of the workbooks will change each week along with the number of rows. The compare column will always be A.

I have attempted the attached code but it errors out and I do not know why. Any help would be appreciated.

I currently copy/paste the formula in column B each week but would really like to automate the process with VBA, which I believe can be done.

Sub compare()
Dim wb As Worksheet
Dim wb2 As Worksheet


Set wb = Workbooks("JonFile1.xlsm").Sheets(1)
Set wb2 = Workbooks("JonFile2.xlsm").Sheets(1)
Dim Found As Boolean
i = 2

Do While wb2.Range("A" & i).Value <> ""
On Error Resume Next
If (IsError(Application.WorksheetFunction.VLookup(wb2.Range("A" & i).Value, wb.Range("A:A"), 1, False))) Then
Else
Found = True
End If

If (Found) Then
wb2.Range("B" & i).Value = "Found"
Found = False
Else
wb2.Range("A" & i)..Interior.Color = 12345
wb2.Range("B" & i).Value = "Missing " & wb.Parent.Name
End If



On Error Resume Next
If (IsError(Application.WorksheetFunction.VLookup(wb.Range("A" & i).Value, wb2.Range("A:A"), 1, False))) Then
Else
Found = True
End If

If (Found) Then
wb.Range("B" & i).Value = "Found"
Found = False
Else
wb.Range("A" & i).Interior.Color = 12345
wb.Range("B" & i).Value = "Missing " & wb2.Parent.Name
End If


i = i + 1
Loop