Put the code given in post #2 in the ThisWorkbook module.

http://screencast.com/t/YliZx6oqUOEj