Private Sub Worksheet_Change(ByVal Target As Range)
Dim i as Long
If Target.Address = Target.EntireRow.Address Then
Application.EnableEvents = False
For i = 1 To Target.Areas.Count
If Target.Areas(i).Row > 1 Then
If Evaluate("=COUNTA(" & Target.Areas(i).Address & ")") = 0 Then
Range("D" & Target.Areas(i).Row - 1).ClearContents
End If
End If
Next i
Application.EnableEvents = True
End If
End Sub
Please can someone help with this - as I said, is it even possible to do this. If not I will have to try something else.