Hi,

I do not know where I am going wrong in the following line of code.
With .Range("D5:D" & LR1)
                If .Value = "" Then .EntireRow.Interior.ColorIndex = 6
        End With
Thank you.