Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
nx = TextBox1.Text
If Len(TextBox1) = 5 Then nx = TextBox1 & "/" & Year(Now)
If Len(TextBox1) < 5 Then nx = ""
If nx = "" Then
[A1].Interior.ColorIndex = 48
On Error Resume Next
ActiveSheet.Range("A2:z" & [A65000].End(3).Row).AutoFilter Field:=1
Exit Sub
End If
On Error Resume Next
tx = CDate(TextBox1) '"=*" & nx & "*"
If Err <> 0 Then Exit Sub
[A1].Interior.ColorIndex = 3
On Error Resume Next
ActiveSheet.Range("A2:z" & [A65000].End(3).Row).AutoFilter Field:=1, Criteria1:=tx, Operator:=xlAnd
End Sub