Dim cell as Range, rng as Range
for each cell in Range("AL6:AL16")
if cell.Value = "A" then
set rng = Intersect(Range("B6:P16, S6:AH16"), _
cell.EntireRow)
rng.Interior.ColorIndex = 45
end if
Next

--
Regards,
Tom Ogilvy

"ParTeeGolfer" wrote in message
...
Tom,

The printable areas are Page 1 - is B6:P16 and page 2 is S6:AH16

Thanks Tom

"Tom Ogilvy" wrote:

How would we know the printable area? How are you defining it?

--
Regards,
Tom Ogilvy





"ParTeeGolfer" wrote in message
...
I am looking to change a printable area row if a condition is true
such
as :

If any cell or cells within the range of AL6:AL16 contains an "A"
then
change the row containing that "A" (Only the printable area) to the
color
orange. If not leave as is

Is this possable?