Dynamically create textbox in sheet with change control.

Hello,

I have a spreadsheet created in another program that gets pasted into a blank excel sheet and then I run a macro. The macro sorts and divides the information into about 50 sheets including 2 summary sheets. I am trying to search column "A" of those sheets (one at a time) instead of scrolling for a name. I have written code to create the textbox and the code for the change event that is functioning when manually inserted into the text box in design mode. What I need help with is getting the textbox to work during run time instead of manually inserting the code each time. All of the code is currently in a module. I have tried using a class module without success. All help or alternatives are welcome. Thank you

This code is within my larger sub within a module:

Please Login or Register  to view this content.

This code is what I paste into the textbox view code option which places it in a worksheet:

Please Login or Register  to view this content.

Thank you Dave,
The code works really well. I had one issue with this line

Please Login or Register  to view this content.

returning a subscript out of range error. I found that if I named the worksheet it would give me the error, but if I ran the code and then named the worksheet it was just fine. There is probably a good reason for that and a way to fix it, but my work around of creating the sheet, running your code and then naming the sheet worked just fine. I really appreciate it!!!