Jake - Thank you very much for all of your help.

I copy and pasted your code below the old code I was using and changed the name to
Sub LineSearchTESTAA1(Optional SearchVal As String)
and when I went in and tried to assign it to the button, it did not show up.
I changed the two other places that had the "TestA1".
The only thing different is the (Optional SearchVal As String) and on the old one
it has (). I inserted a new Module and pasted it in there and it still did not show up. This has never happened before.
Would you be interested in see how I am using this code?
Thank you.

Jake - I figured it out.
I put (MyValue) after the " 
Call LineSearchTESTA1(MyValue)
"

Well it did work, I put a name in the search box that was not on the sheet.
It would not let me search again or get out, I had to crash out of the sheet.
Then I pasted the code in again and I have pasted the same code in and now it does not show up for me to assign the code to.
Than you for all of your help.


If Ans = vbYes Then 
     Call LineSearchTESTA1 
End If 
End If 
If MyFindNext = vbYes Then 
     Call LineSearchTESTA1(MyValue)