It is wrap-around, the lines like

Case Is < 30: Me.Range("E" & .Row).Resize(,
5).Interior.ColorIndex = xlCIYellow

should all be on one line.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gunjani" wrote in message
ups.com...
It does not work
Message compile Syntax error...

sent you an email

Rgds
Gunjani