Dim cell As Range
For Each cell In Range("B:B")
If Len(cell.Value) = 0 Then cell.Offset(0, 1).Interior.Pattern
xlPatternGray8
Next


How can I set this code so Excel doesn't apply this setting up to th
65 000th line? (max

--
Turquoise_da
-----------------------------------------------------------------------
Turquoise_dax's Profile: http://www.excelforum.com/member.php...fo&userid=3518
View this thread: http://www.excelforum.com/showthread.php?threadid=55466