TextBox Find MatchCase

[asyamonique]

Good Day,
Is the any way to make below code to run more powerful?
If column A has huge datas as in ID number of clients when I type the ID number on textbox1 textbox2 doen't updating correctly, especially if the ID numbers has similar digits in it.
Many thanks.

Private Sub TextBox11_AfterUpdate()
On Error Resume Next
Dim ws As Worksheet, rngFind As Range
Set ws = ThisWorkbook.Sheets("LIST")
Set rngFind = ws.Range("a:a").Find(what:=Me.TextBox1.Value, MatchCase:=True)
If Not rngFind Is Nothing Then
Me.TextBox2.Value = rngFind.Offset(0, 1).Value
End If
End Sub

 

[NoSparks]

Any chance the previous time .find was used it was for partial match?

The range.find method has some arguments that are persistant (ie: held over from last use) and should be specified for current use.