Bolding Text From List

I have been trying to put together some VBA code that will look for specific text in a range from a list of approved words that I would like to bold. I found some code on the web, and have modified a little bit, but what is happening is that I am only getting items that aren't on the list to bold instead of the items on the list to bold and no other text.

Here is the range of text that I want to be searched on Sheet1
******** ******************** ************************************************************************>Microsoft Excel - Book1.xlsm___Running: 12.0 : OS = Windows XP File Edit View Insert Options Tools Data Window Help AboutC8=ABCD1Text   2List   33   4Something   5Test   6More Text   7Another Item   8Etc   9Another Test   10Run   11Home   Sheet1 [HtmlMaker light Ver1.11] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR.
And then the "List of Terms to look up" on Sheet2
******** ******************** ************************************************************************>Microsoft Excel - Book1.xlsm___Running: 12.0 : OS = Windows XP File Edit View Insert Options Tools Data Window Help AboutA1=ABCD1Text   2List   33   4Something   5Test   6More Text   7Another Item   8Etc   9Another Test   10Testing   Sheet2 [HtmlMaker light Ver1.11] To see the formula in the cells just click on the cells hyperlink or click the Name boxPLEASE DO NOT QUOTE THIS TABLE IMAGE ON SAME PAGE! OTHEWISE, ERROR OF JavaScript OCCUR........................