The code *DOES NOT* go into the the module named "ThisWorkbook" delete the code from that module.

Assuming you have the VB editor open (Alt + F11 keys)

Make sure the Project Explorer pane is in view. If not, press Ctrl + R or go to View in the menu and select it.
Afterwards, look for the sheet name in the project explorer and double click on it to make the code pane active for that worksheet.

Copy and paste the code the code into the code pane.
Adjust any sheet or range references as needed.

As I mentioned, sheet references in my code are to sheet code names

Close the VB Editor (Alt + Q keys)

Re-read my previous post in its entirety, especially regarding the look up table.