Hi. JIndon. First home from work now. Sorry the late reply but big time difference. And thanks so much for your answer.
I tried the code but i get an error in this line

.FormatConditions.Add xlExpression, , "=countif(a1,b1&""*"")>0"

I use excel 2010 dont know if that mean some.

Sincerely Abjac