Anh/chị giải mã giúp em đoạn code VBA tìm kiếm ô thông minh này với ạ

[HuyetHanThuSinh]

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
ActiveCell.Value = Sheet1.ListBox1.Value
Hide
ActiveCell.Activate
End If
End Sub
Private Sub TextBox1_Change()
loc
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Or KeyCode = 37 Or KeyCode = 38 Or KeyCode = 39 Or KeyCode = 40 Then
If Sheet1.ListBox1.ListCount = 0 Then
Hide
ActiveCell.Activate
Else
Sheet1.ListBox1.Activate
Sheet1.ListBox1.ListIndex = 0
End If
ElseIf KeyCode = 46 Then
ActiveCell.ClearContents
Hide
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 8 And Target.Row < 18 Then
If Target.Column = 3 Then
thaydoi
Else
Hide
End If
Else
Hide
End If
End Sub