Suche in Zelle

ich habe eine Suche gefunden mit der Ich einzelne Begriffe in einer Excelliste suchen möchte.
Das Problem hier ist ich benötige den Genauen Begriff und kann
keine Teilstücke eingeben.
Wie kann ich das Lösen ???

Der Code :

Option Explicit

Sub Suchen()
Dim rngFind As Range
Dim strFind As String
strFind = InputBox("Suchbegriff:")
If strFind = "" Then Exit Sub
Set rngFind = Columns(1).Find(strFind, lookat:=xlWhole, LookIn:=xlValues)
If rngFind Is Nothing Then
Beep
MsgBox "Suchbegriff wurde nicht gefunden!"
Exit Sub
End If
Rows(rngFind.Row).Select
End Sub