Suchbegriff nicht gefunden

Sub suchen()
Dim suchbegriff As String
Dim rng As Range
suchbegriff = Worksheets("Kontosalden").Range("A2")
Set rng = Worksheets("Kontosalden").Range("O2:O201").Find(suchbegriff)
If rng Is Nothing Then
MsgBox "kein Unterkonto vorhanden"
'  ListBox2.RowSource = ""
Exit Sub
Else
'führt den cmdbtn3 aus - füllt Listbox2 aufgrund Wert Textbox3
'CommandButton3 = True
MsgBox "vorhanden"
End If
End Sub