VB Script search within a column in one Wb and find in another WB and Highlight yellow

Per Forum Rule No. 3. You must use code tags when posting.

http://www.excelforum.com/forum-rule...rum-rules.html

Sub DixieDiver()
Dim x As String
Dim i As Long
Dim y As Range
Workbooks("DB (Old App).xlsx").Sheets("DB (Old App)").Activate
For i = 1 To 500
    x = Range("A" & i).Value
        Set y = Workbooks("Missing PI Tags 20141021b.xlsx").Sheets("Jacobs").Columns(1).Find(x, LookIn:=xlValues, lookat:=xlWhole)
            If Not y Is Nothing Then
                Workbooks("Missing PI Tags 20141021b.xlsx").Sheets("Jacobs").Cells(y.Row, y.Column).Interior.ColorIndex = 6
            End If
        Set y = Nothing
Next i

End Sub