If any cell in named range = 8 then shade named range

How would I do this please?

If any one of the cells in the range("Block_Three") = 8 then shade the
range("Block_Three") yellow.

if application.countif(Range("Block_Three"),8) > 0 then
Range("Block_Three").Interior.ColorIndex = 6
End if


or if only exactly 1
if application.countif(Range("Block_Three"),8) = 1 then
Range("Block_Three").Interior.ColorIndex = 6
End if

--
Regards,
Tom Ogilvy



"JJ" <[email protected]> wrote in message
news:[email protected]...
> How would I do this please?
>
> If any one of the cells in the range("Block_Three") = 8 then shade the
> range("Block_Three") yellow.
>
>
>

JJ,

Use Format --> Conditional Formatting in Excel. Highlight Block_Three and
enter this formula in the dialog:

=COUNTIF(Block_Three,8)

Then choose yellow as the format.

hth,

Doug

"JJ" <[email protected]> wrote in message
news:[email protected]...
> How would I do this please?
>
> If any one of the cells in the range("Block_Three") = 8 then shade the
> range("Block_Three") yellow.
>
>
>

Fantastic Tom, thank you.


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> if application.countif(Range("Block_Three"),8) > 0 then
> Range("Block_Three").Interior.ColorIndex = 6
> End if
>
>
> or if only exactly 1
> if application.countif(Range("Block_Three"),8) = 1 then
> Range("Block_Three").Interior.ColorIndex = 6
> End if
>
> --
> Regards,
> Tom Ogilvy
>
>
>
> "JJ" <[email protected]> wrote in message
> news:[email protected]...
>> How would I do this please?
>>
>> If any one of the cells in the range("Block_Three") = 8 then shade the
>> range("Block_Three") yellow.
>>
>>
>>
>
>