CB wert in sheet suchen und zeile loeschen

Private Sub CommandButton3_Click()
Dim s As Integer
With Sheets("site")
For s = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Cells(s, 1) = cb1.Value Then Rows(s).Delete
Next s
End With
End Sub