Find Whole Cell Value, Not Part

I use this code to "search" a value in columns A or B and if found to select the row the value is in.

Trouble is if I look for say value 11 (the code finds 1) I understand what happens but need your help to fix it hoping to keep it as simple as it is. (I cannot use filters)


Dim wht As Variant, Found As Range
wht = InputBox("Searchfor")
Set Found = ActiveSheet.Columns("A:B").Find(what:=wht)
If Found Is Nothing Then
MsgBox "Not found"
Exit Sub
Else