I am trying to have a cell in Column "E" shaded IF a cell in Column"B" has no value.
I do not want it to pickup all the empty cells in Column "B" as my data stops at Row B59.

I want something like this:

Sub ShadeCell()
With Sheet1
If range("B:B").value = "" and range("B:B").row < 59 then
..activate
activecell.offset(,-1,2).select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
end with

end sub


Can someone assist me to have this work?

Corey...