Hello,
I have written a macro that matches values in two columns and highlights the
matches. The problem arises in a loop that is searching in one column has
no match in the other. The code generates an error. Any input appreciated,
code follows.

Sub Match()
'Compares values in 2 columns and highlights if the same

For Nextloop = 1 To 50
ActiveCell.Offset(1, 0).Activate
i = 1
Do Until ActiveCell.Value = Range("b1").Offset(i, 0)
i = i + 1
Loop
If ActiveCell.Value = Range("b1").Offset(i, 0) Then
Range("b1").Offset(i, 0).Cells.Interior.ColorIndex = 17
If IsEmpty(ActiveCell) Then
Exit Sub
End If
End If
Next Nextloop
End Sub