Yahoo!!! I got it... I put these lines of cod

If MaxVal = 0 The
cell.Interior.ColorIndex =
End I

Just before

MaxVal =

It works..

Do you think that I did it correctly... I'm quite proud of myself!!! I kind of star to understand how this whole programming thing works.

THANK YOU!!!!!

Marilyne