VBA - intersect target does not fire upon change event

[chistos]

I am working on macro which operates with ranges and when range is change, event is fired problem is that intersext target stop firying, it work on part of macro and it does not work on second part. code bellow, same code run just fine on other parts of sheet and here it does not.

 

[Michael M]

If the code has been stopped at some point, you may need to reset
Application.enableEvents back to true by using the Immediates window !!
Simply type it into the immediates window and press Enter.

 

[GWteB]

What kind of variable is range29to30e within the first line of code?
In case it's a named range it should probably be (note the double quotes...)

If Intersect(Target, Range("range29ti30e")) Is Nothing Then

 

[chistos]

If the code has been stopped at some point, you may need to reset
Application.enableEvents back to true by using the Immediates window !!
Simply type it into the immediates window and press Enter.

Will not fix an issue, because it is created for users, who does not know what is immediate window, any idea how to reset? Because actually it is sheet where user choose answer from list and according to that answer new ines pop up or not...

 

[chistos]

What kind of variable is range29to30e within the first line of code?
In case it's a named range it should probably be (note the double quotes...)

If Intersect(Target, Range("range29ti30e")) Is Nothing Then

Set range29to30e = Range(Quest29.Offset(1, 0).Address, Quest31.Offset(-1, 0).Address)

this is the variable sources are
Set Quest29 = Cells.Find(What:="We included and signed-off all audit evidence in Canvas before the audit report date.", After:=Range("A1"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=True).Offset(0, 1)

 

[GWteB]

Set range29to30e = Range(Quest29.Offset(1, 0).Address, Quest31.Offset(-1, 0).Address)

With the above code the line below

If Intersect(Target, Range(range29ti30e)) Is Nothing Then

should give you a run-time error (at least in the version I am using ....) Try replacing it with ...

If Intersect(Target, range29ti30e) Is Nothing Then

 

[chistos]

With the above code the line below

If Intersect(Target, Range(range29ti30e)) Is Nothing Then

should give you a run-time error (at least in the version I am using ....) Try replacing it with ...

If Intersect(Target, range29ti30e) Is Nothing Then

Looks like it helps and code is running, thanks you lot

 

[GWteB]

You are welcome and thanks for letting us know.