How to unmark "match entire cell contents"?

[Tường_Vi]

Muội có một đoạn code VBA có sử phương thức find nhưng sau khi chạy đoạn code trên (qua sự kiện selection change)
Lúc muội sử dụng hộp thoại find thì thấy ko tìm kiếm đuợc, kiểm tra ra thấy tự dưng bị mark vào match entire cell contents"
Em đã bỏ dấu mark trên hộp thoại nhưng sau khi đoạn code chạy thì hiện tượng tự mark lại xảy ra?
Vậy làm sao mình bỏ qua việc tự mark chị nhỉ?

   Dim Rng As Range
        If Not Intersect(Range("M2:M65000"), Target) Is Nothing Then
            If Target <> "" Then
            With Sheets("P.I.C").Range(Sheets("P.I.C").[A3], Sheets("P.I.C").[A65500].End(xlUp))
                Set Rng = .Find(what:=UCase$(Target.Text), LookIn:=xlFormulas, lookat:=xlWhole)
                    If Rng Is Nothing Then
                    Method_Form.Show
                
                    End If
             
            End With
            Else: Exit Sub
            End If
         End If

 

[ptm0412]

Gởi Tường Vi,
Tường Vi lần sau nên đặt tiêu đề bằng tiếng Việt nhé, không hẳn là phạm quy, nhưng 1 tiêu đề tiếng Anh sẽ ít được quan tâm trả lời.
Về đoạn code liên quan đến phương thức find, "match entire cell contents" được đánh dấu tương ứng với LookAt:=xlWhole, không đánh dấu tương ứng với LookAt:=xlPart

 

[Tường_Vi]

Gởi Tường Vi,
Tường Vi lần sau nên đặt tiêu đề bằng tiếng Việt nhé, không hẳn là phạm quy, nhưng 1 tiêu đề tiếng Anh sẽ ít được quan tâm trả lời.
Về đoạn code liên quan đến phương thức find, "match entire cell contents" được đánh dấu tương ứng với LookAt:=xlWhole, không đánh dấu tương ứng với LookAt:=xlPart

Cám ơn Huynh PTM nhé, muội làm đuợc rồi, hi hi ^_^