"Rob van Gelder" wrote in message
...
1.
Move the following line up so it is before the If statement:
Range("B8:K22").Interior.ColorIndex = xlColorIndexNone


Thanks Rob, that requirement was a bit too subtle for me<g.


2.
Not sure what you mean by transposing...
Bob's code looks good.


Of course it does Rob, apart from putting in a loop to do them all, it's
your code<vbg.