Change Event: Clear Contents Adjacent Cell

[jerryS]

Hi,
My validation list goes in the range C6:C15
I need to clear the contents of the adjacent cell (D) every time I change cell (C).
if change C6, clear D6.
if change C7, clear D7.
if change C8, clear D8.

Thanks for your help.

 

[lenze]

In the WorkSheet module, enter

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("$C$6:$C$15")) Is Nothing Then Exit Sub
Target.Offset(0, 1).ClearContents
End Sub

HTH

lenze

 

[Richie(UK)]

Hi Jerry,

How about:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C6:C15")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
    End If
End Sub

HTH