Lock and clear cell content based on another cell's value

Hi,

I have this code from http://www.mrexcel.com/archive/VBA/19248.html
This does all the things I required, except clear the contents of the cell B7 when "BPS" is selected in B6.
Following is the code I am using:

Please Login or Register  to view this content.

Pls help me ensuring that cell value in B7 is cleared whenever B6 contains BPS...thanks