Thread: find_name VB script returns error 13 type mismatch in Excel 2010

Is there something wrong with the code?

Sub find_name()
Dim name_list As Range, c As Range, d As Range, lookup_list As Range
Worksheets("name list").Activate
Set name_list = Range(Range("A2"), Range("A2").End(xlDown))
Worksheets("Sheet1").Activate
Set lookup_list = Range(Range("A2"), Range("A2").End(xlDown))
For Each c In lookup_list
    For Each d In name_list
        If InStr(UCase(c.Value), UCase(d.Value)) Then c.Interior.ColorIndex = 6
    Next d
Next c
End Sub

I would be easier if you post a sample workbook.

hum..... what is your question again? I see you have some codes, but I can't read your mind.

I meant what is the macro trying to do. It is taking forever for the macro to complete. Not saying I have a slow computer, but it is still running.