On_change event not triggering

[ouvay]

Hello,

Here is my code which is meant to trigger on change
upon triggering, it is suppose to run another function referenced in the code (not pasting due to relavance)

I've got the code in the "Management Sheet" module
unfortunately, it isn't working.. I'd appreciate you guys's help on this

Thanks in advance

Code Below

Private Sub Worksheet_Change(ByVal Target As Range)

Dim v
Dim reason_ws As Worksheet: Set reason_ws = ThisWorkbook.Worksheets("Reason List")
Dim manage_ws As Worksheet: Set manage_ws = ThisWorkbook.Worksheets("Management Sheet")
Dim watchingRng As Range: Set watchingRng = reason_ws.Range("C2:C" & reason_ws.Cells(Rows.Count, 3).End(xlUp).Row)



If Intersect(Target, watchingRng) Is Nothing Then Exit Sub
v = getUniqueArray(watchingRng)
If IsArray(v) Then
   manage_ws.Range("a2").Resize(UBound(v)) = v
End If


End Sub

 

[Colo]

Hi,

First, make sure that event-driven is working. Put the following code in the Immediate window in the VBE then press [Enter].

Application.EnableEvents=True

If Intersect(Target, watchingRng) Is Nothing Then Exit Sub

Stop the code here, and check if it goes to Exit Sub or not.

 

[StephenCrump]

In addition to @Colo's comments ...

It looks like you want to monitor changes in Worksheets("Reason List")? If so, that's the sheet module where you need to put this Sub.

If this code is in the "Management Sheet" module, it will trigger only if you make changes to "Management Sheet". And if you do, this line will error:

If Intersect(Target, watchingRng) Is Nothing Then Exit Sub

because you can't apply Intersect to two different worksheets.

 

[ouvay]

In addition to @Colo's comments ...

It looks like you want to monitor changes in Worksheets("Reason List")? If so, that's the sheet module where you need to put this Sub.

If this code is in the "Management Sheet" module, it will trigger only if you make changes to "Management Sheet". And if you do, this line will error:

If Intersect(Target, watchingRng) Is Nothing Then Exit Sub

because you can't apply Intersect to two different worksheets.

Thank you! I just needed to move the code over to the "Reason List" sheet!

 

[StephenCrump]

Yes, an easy fix. I'm glad we could help.