maybe events are disabled
run this macro
Sub ert()
Application.EnableEvents = True
End Sub
and then check your Private Sub Worksheet_Change