The code does work as long as the following are correct.

The active cell when the code is run contains the keyword to search for.
the keyword to search for is exactly the same as the text in the keyword list. the comparison is case sensitive.
the keyword list has a header of 'keyword list' in row 1. Again case sensitive.

If there is a match then the code will fail trying to set an invalid property "VerticalScrollBar"