Macro to only keep 100 words in a range of single words per column

Hello,

I'm looking for a macro to remove all words (in a single word per cell format) in a range (approx 100 columns & 7000 rows), except for a list of 100 words.

I'd prefer to email the file if that's okay.

Appreciate any help you might have.
Thanks,
Pia

Okay... this file should be good. The words I want to keep are on the tab called keep.
Thanks!

Thanks! No doubt it's the user not the script but I got the following error:
Run-time error '9': Subscript out of range
When I click on Debug it highlights the row:
"With ThisWorkbook.Sheet("Keep")"

Appreciate your help.
Best regards,
Pia

p.s. don't be alarmed if the the words in the Keep sheet don't match some of the words in the main sheet. They will match once I stem the words on the main sheet. Hope that makes sense.
Thanks,
Pia

Thanks! I copied and pasted the code into macro. Tried it again and get the following errors.
Run-time error '1004' Application-defined or object-defined error &
Run-time error '9'
It must be the way that I've loaded the code into VBA. Do you get these errors in my file?
Sorry to be a pain, appreciate your help with this.
Thanks,
Pia