Finding Possible Mismatch between columns

Hey Gregor,
I understand that anything would be a mismatch. But i would like the comment to show the closest mismatch if possible? Can you think of a code that could do that?

Originally Posted by Gregor y

I'm having a hard time picturing what you're asking. Since as far as Excel would care "Joel" would not only be a mismatch to "Joell", but also to "Sam", "Gorge", "Bob", ... and pretty much anything other than "Joel".

that asside, the VBA to update cell comments would look something like this:

Sub Commenting_A_cell()
    Dim c1 As Range, c2 As Range
    Set c1 = ActiveCell
    Set c2 = Range("C4")
    c1.AddComment "In column C as: " & c2.Value
End Sub

Hey Gregor Y,
I understand what you're trying to stay. All those are mismatches i agree. But I'm looking to show the closest mismatch in the comment. I hope this makes it a little more clear as to what I'm trying to achieve. And I really hope someone can help me with the code. I am unable to find help anywhere else.

Does this help?

Sub ankituc()
Dim i As Long, r As Range, x As Range
With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
End With
For i = 2 To Range("A" & Rows.Count).End(3).row
    Set r = Columns(3).Find(Cells(i, "A").Value, LookIn:=xlValues, lookat:=xlPart)
    If Not r Is Nothing Then
        Cells(i, "A").AddComment "In Column C as: " & Cells(r.row, "C")
        Cells(i, "A").Interior.ColorIndex = 6
        Cells(r.row, "C").Interior.ColorIndex = 6
    End If
    Set r = Nothing
Next i
For i = 2 To Range("C" & Rows.Count).End(3).row
    Set x = Columns(1).Find(Cells(i, "C").Value, LookIn:=xlValues, lookat:=xlPart)
    If Not r Is Nothing Then
        Cells(x.row, "A").AddComment "In Column C as: " & Cells(i, "C")
        Cells(x.row, "A").Interior.ColorIndex = 6
        Cells(i, "C").Interior.ColorIndex = 6
    End If
    Set x = Nothing
Next i
With Application
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
End With
End Sub