Excel vba change cell color based on another cell

Excel vba change cell color based on another cell pictures 5