Thread: "New" MsgBox/TextBox Question

I found this during testing and don't understand why it is happening or how to fix it.

Situation: Data column is 'empty', I type in a title and as it is supposed to, "Not Found" is returned when I click 'Search'. If I type in a single letter the same, "Not Found". Now the problem, if I type in a single number such as "2" or several nembers in a row "123" I get a return of "Found". If I type in "123a" I get a return of "Not Found" as I should.

Again, when a single number or several numbers in a row are typed into the TextBox I get "Found". Why is this and how do I fix it? Any suggestions?

Below is the block of code thats doing the search.

Regards

   With Worksheets("Sheet1").Range("B2:B5040")

Set c = Cells.Find(Me.TextBox1.Text, LookAt:=xlWhole, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=True)
    
If Not c Is Nothing Then

Mudraker....Thanks for your reply, your input worked like a charm. I was under the impression that the above "with" statement was catching the range I intended to match. Never to old to learn.

I don't know if you noticed or not but I found a work-around for my previous post.

Again, Thanks for you help.