VBA Macro not working

[Sanjay Prasad]

Hi
I have two lists in my excel sheet one in H2 and corresponding list in I2. whenever I change value in H2 the I2 value changing as well however I2 cell not get blank. I written below code to do so in VBA module however it is not working not even going to read it I tried putting prompt messages as well.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 9 Then
If Target.Validation.Type = 8 Then
Application.EnableEvents = False
Target.Offset(0, 1).ClearContents
End If
End If
exitHandler:
Application.EnableEvents = True
Exit Sub
End Sub

My macro setting is "Enable all macros(not recommended......)"

Thanks,
Sanjay

[LeoTaxi]

Column H = 8
Column I = 9

so seems you make J2 blank

kind regards
Leo