VBA for Formatting Cells in a Range

[marklongbottom]

I want to highlight every cell in E7:E3000 that is blank red. However if there is a value in the corresponding cell in column D then I want the cell to stay unformatted.

Example:
If E7 is empty and D7 is empty then E7 needs no formatting.
If E7 is empty and D7 has something in it then E7 needs to be red.
If E7 has something in and D7 is empty then E7 needs no formatting.
If E7 has something in and D7 has something in then E7 needs no formatting.

This needs to cover all cells down to E3000.

Can anyone help?

 

[VoG]

Try

Sub frmat()
Dim i As Long
For i = 7 To 3000
    With Range("E" & i)
        If .Value = "" And .Offset(, -1).Value <> "" Then
            .Interior.ColorIndex = 3
        Else
            .Interior.ColorIndex = xlNone
        End If
    End With
Next i
End Sub

 

[marklongbottom]

Nice one. Works a treat. Thanks for your help.