Karşılaştır makrosunda hata

[mersilen]

merhabalar,
2 sayfa arasında verileri karşılaştırıp aynı ise yandaki hücreyi renklendirmek istiyorum ama makro bir yerde kısır döngüye giriyor gibi.
Kodu nasıl düzenlemem lazım.Teşekkürler

Sub karşılaştır()
Dim a, i As Integer

For a = 100 To 1 Step -1
For i = 4780 To 1 Step -1
If Cells(a, "a").Value = Sheets("145359").Cells(i, "c").Value Then Cells(a, "b").Interior.ColorIndex = 3
Cells(2, 2) = a & "  ;  " & i
Next i
Next a

End Sub

 

[hamitcan]

Böyle deneyin.

Sub Eslestir()
    Sheets("O21").Columns(1).Interior.ColorIndex = xlNone
    For a = Sheets("O21").[A65536].End(3).Row To 2 Step -1
        Set c = Sheets("145359").Columns(1).Find(Sheets("O21").Cells(a, 1))
        If Not c Is Nothing Then Sheets("O21").Cells(a, 1).Interior.Color = vbYellow
    Next
    MsgBox "Bitti"
End Sub