Paul's code anticipates a header row in the sheet with the word list
Code:
For i = 2 To xlShtIn.UsedRange.Cells.SpecialCells(xlCellTypeLastCell).Row
If you only have one word in your 'list' it will need to go in the second row of that sheet or there is nothing to search for.