Conditional Format Multiple Criteria VBA

I have 2 columns of data - Name (A) and Index (B) - and the following VBA, so when Index (B) is a certain value (or within a specific range) that Index (B) cell changes color:

Please Login or Register  to view this content.

This works well for multiple Conditional Format, but only changes the cell color for Index (B).

How can I modify this so the value in Index (B) will also change the cell color for Name (A) adjacent?

e.g. "215" in B5 changes cell B5 and A5 to red. (using Excel 2003)