Hi Dave,

That should be:

nXorman_jXones@btXconnectDOTcom

---
Regards,
Norman



"Norman Jones" wrote in message news:...
Hi Dave,

The code works for me.

If you would like a copy of my test book,you can contact me at:

(replace dot and remove each X) :

nXorman_jXones@btXinternetDOTcom

---
Regards,
Norman



"Piranha" wrote in
message ...

Norman,

Your second soultion works with the function, But it still dosen't meet
my criteria.
It shades ALL cells in "MyNamedRange"

I think i will just continue to do this task manually every day as i
have been doing,
instead of trying to automate it.

Your help and time is Very Much Appricated.
Thx
Dave