Silinecekler sayfasındakileri Arsiv sayfasından sil

[tahsinanarat]

Sub bul_sil3()
    Dim S1 As Worksheet, S2 As Worksheet, X As Long, SAY As Long, Y As Long

    Set S1 = Sheets("Arsiv")
    Set S2 = Sheets("Silinecekler_listesi2")

    Application.ScreenUpdating = False

    For X = 1 To S2.Range("A65536").End(3).Row
        SAY = WorksheetFunction.CountIf(S1.Columns(2), S2.Cells(X, 1))
        If SAY > 0 Then
            For Y = 1 To SAY
                S1.Columns(2).Find(S2.Cells(X, 1)).EntireRow.Delete
            Next
        End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing

    Application.ScreenUpdating = True

'    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Yukarıdaki kod ile Silinecekler_listesi2 sayfasının A sutununda yazılı olan sicilleri Arsiv sayfasının B sutunundan bulup o satırı siliyor sanıyordum, ancak
Silinecek sayfasında 2333 nolu sicil yazılı olduğu halde Arşiv Sayfasından 12333 numaralı sicil satırını da sildiğini fark ettim, ben tam eşleşme olması halinde silinmesini istiyorum, kodda nasıl bir değişiklik olmalı.
Yardımcı olacak Hocalarıma şimdiden teşekkür ederim.
Kolay gelsin

 

[tahsinanarat]

 For Y = 1 To SAY
                S1.Columns(2).Find(S2.Cells(X, 1)).EntireRow.Delete
            Next
            
            
satırını

 For Y = 1 To SAY
                S1.Columns(2).Find(S2.Cells(X, 1),,,xlWhole).EntireRow.Delete
            Next
            
olarak değiştirdim oldu.