If you don't want to apply the format beyond row 65000, I think this
should work for you.

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


--
darpan_mirror
------------------------------------------------------------------------
darpan_mirror's Profile: http://www.excelforum.com/member.php...o&userid=35593
View this thread: http://www.excelforum.com/showthread...hreadid=554663