Clear cell when entering data in a different cell

[box of moonlight]

I need some help with VBA code on an Excel spreadsheet.

the code below only solve my problem for clearing cell "C6" when entering data in cells C5:D5. I would like it to clear cells "C5:D5" when entering data in cells C6 also.


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C5:D5")) Is Nothing Then
Range("C6").ClearContents
End If
End Sub


Thank you in advance for your help....

 

[Fluff]

Hi & welcome to the board.
How about

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
   If Not Intersect(Target, Range("C5:D5")) Is Nothing Then
      Range("C6").ClearContents
   ElseIf Target = Range("C6") Then
      Range("C5:D5").ClearContents
   End If
Application.EnableEvents = True
End Sub

 

[box of moonlight]

Thanks so much......! Works GREAT!

 

[Fluff]

Glad to help & thanks for the feedback