Delete code doesn't seem to work

Hello there,

I'm trying to execute the following which I think is correct (as far as my eyes and abilities are concerned) but somehow the code doesn't execute with no error message. Upon step-by-step debugging through the lines, the code skips the lines highlighted in red.

Would you be able to tell what may be incorrect with this code or the whole exercise?

Thank you so much.

Private Sub COM_04_Click()
 
If Me.LRB_00.ListIndex = -1 Then
    MsgBox "Select an entry to delete.", vbExclamation, "Warning"
    Exit Sub
End If

If Me.LRB_00.ListIndex >= 0 Then
    cevap = MsgBox("Please confirm you wish to delete " & vbNewLine & Me.LRB_00.Value, vbCritical & vbYesNo, "Final Check")
        If cevap = vbYes Then
         Set lrWs = Sheets("Leads_Report")
            lrWs.Range("P9:P").find(What:=LRB_00.Value, LookIn:=xlValues, LookAt:=xlWhole).Activate
            sil = ActiveCell.Row
            lrWs.Rows(sil).Delete
        End If
        Call UserForm_Initialize
End If
        
End Sub