Try:
Sub Crispy85zz()
Dim i As Long, x As Long, y As Variant, z As Range, ws As Worksheet, ws1 As Worksheet, yy As Range
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Set ws = Sheets("BASE SHEET")
Set ws1 = Sheets("DATA DUMP")
With ws1
x = .Range("A" & Rows.Count).End(3).row
ReDim y(2 To x)
For i = LBound(y) To UBound(y)
Set z = ws.Columns(2).Find(.Cells(i, "C"), LookIn:=xlValues, lookat:=xlPart)
If Not z Is Nothing Then
GoTo zz
Else
If .Cells(i, "C").Interior.ColorIndex = 6 Then
GoTo zz
Else
MsgBox .Cells(i, "C") & " Not Found in Names"
For Each yy In .Range(.Cells(i, "C"), .Cells(x, "C"))
If yy = .Cells(i, "C") Then yy.Interior.ColorIndex = 6
Next yy
End If
End If
Set z = Nothing
zz:
Next i
.Columns(3).Interior.ColorIndex = xlNone
End With
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Bookmarks