Jerry,

You have "sFind" in your code twice. The second time it is assigning the value in cell A1 (which is just the number, not the text). Does your message box display the correct name? If so, simply delete this line from your code:

sFind = ThisWorkbook.Sheets("Home").Range("A1").Value

Ben

Hi Ben ,

I have made some new modifications in the code.
So basically, I choose "Supplier/customer" then the code will export row one in ICD , and find in it the rows related to the word.

However I ve been asked to be able to choose the column.

Say: row one contains the name of the informations.

So, after choosing the word and before clicking on export, I need to be able to choose the column (information) to export. A kind of form where user can select it

Let me know if you understand what I am saying.

Best Regards