Comparing text strings

I have to do a simple operation from macro that it compares text in three columns and gives results using following logic in adjacent column :-

Column --> G H I ---> J
FC FC FC ---> FC
NC NC NC ---> NC
Else

result in J should be PC.

Also, if F = FC, color cell with Green, If F=NC, color cell Red and else if its PC color cell Blue.
I tried to write a code and but while compilation it shows some error. I think there is some error in the code lines where I have applied "And" operation.
Could any one help me in correcting the code.

Thanks is advance !!

Please Login or Register  to view this content.

The code you've supplied produces a Next Without For error
Put a Next after the EndWith

Also try this in your IF...ANDs...
seems to work

Please Login or Register  to view this content.

Hi,

Meanwhile I was trying to write a code and somehow end up with desired results.
But as my logic is not very strong, I end up with too many lines of codes.
Below is the code. Could some1 suggest me the more optimized code for the same. I have attached a file as well for your reference.

Please Login or Register  to view this content.