syntax help

Hi,

Is this piece of code within another With statement? If not you should replace

With .Range("D5:D" & LR1)

with

With Range("D5:D" & LR1)

Additionally you are trying to extract the value of a range of cells, effectively

If Range(D5:D10).Value = "" Then ........

Which can't be done.


I think that you're trying to highlight a row yellow if one of the cells in your range in empty.

How about something like this:

Dim rCell As Range
For Each rCell In Range("D5:D" & lr1)
If rCell.Value = "" Then rCell.EntireRow.Interior.ColorIndex = 6
Next rCell