Comparar columnas con Macro

Hola que tal.
Encontré esta macro; pero al momento de trabajar con muchos registros llega a pasmarse; me podrías explicar porque se traba. Por ejemplo si lo hago con menos de 1000 registros lo hace bien, pero con más se traba y me obliga a cerrar el programa
el código es este:
Sub comparaCol()
Dim fila, ctrol As Integer
fila = 2
'suponemos que se comparan las col C de la hoja activa y la Hoja2
ActiveSheet.Range("C2").Select
'recorre la col C hasta una celda vacía, presuponiendo que será el final.
While ActiveCell.Value <> ""
'recorre la col C de la hoja2
While ctrol = 0
'controla si no será la última fila de la hoja2
If Sheets("Hoja2").Cells(fila, 3) = "" Then
ctrol = 1
ElseIf ActiveCell.Value = Sheets("Hoja2").Cells(fila, 3) Then
ActiveCell.Interior.ColorIndex = 4
ctrol = 1
Else
fila = fila + 1
End If
Wend
ActiveCell.Offset(1, 0).Select
fila = 2
ctrol = 0
Wend
End Sub
Muchas gracias!