Hi Dave,

That should be:

nXorman_jXones@btXconnectDOTcom

---
Regards,
Norman



"Norman Jones" <[email protected]> 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" <[email protected]> wrote in
> message news:[email protected]...
>>
>> 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
>
>