Hi Jim,

To remove possible ambiguity:

Dave's scenario is that each column's blank cells are shaded down to, and
including, the last populated row

would have been better expressesd as:

Dave's scenario is that each column's blank cells are shaded down to, and
including, the last populated row on the sheet.


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Jim,

I think you last solution is going to have a problem in that it looks
for the last populated cell (Find * in LastRow function). The
shaded cells are not populated (I assume as a guess).

Dave's scenario is that each column's blank cells are shaded down to, and
including, the last populated row.

Consequently, the LastRow function was appropriate and, testing on Dave's
original file, it returned the expected results when used in conjunction
with my suggested code.

As, already indicated, your code also worked for me - and you did not have
the advantage of having (an admittedly very old copy of ) the file hidden
away in my archives.


---
Regards,
Norman