Thank you for your help JHB, I finally got the button I want through your help. I examined the VB codes that you changed or added and I found this one which I cant analyze
Private Sub FindInList()
Dim ListValuefound As Boolean, x As Long
For x = 0 To Me.List14.ListCount
If Me.CODE =...