Pausing Worksheet_Change with checkbox

[zankzank]

Dear all,
I would like to bypass Worksheet_Change when a checkbox is unticked.
I wrote the following code but the Worksheet_Change keeps firing no matter what

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo enableEventsOn:
Application.EnableEvents = False
If Not Intersect(Target, Range("R4:S40")) Is Nothing Then
Call macro_X
Active.Sheet.Range("S3").Value = "TRUE"
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub

The checkbox is linked to cell S3 and when it is ticked S3 = TRUE
I would like the Worksheet_Change to stop firing when the checkbox is unticked (S3 = FALSE)

Any help is greatly appreciated.
Best,
Silvano

 

[steve the fish]

You wont stop it firing but you can stop other lines running by adding a line at the top such as

If Range("S3").Value = "False" then Exit Sub

 

[zankzank]

Hi! First of all,
thank you for finding the time to answer my question: that was very kind of you!
I just wanted to say that , unfortunately, that does not seem to fix my problem: macro_X is still called even is the statement

If Range("S3").Value = "False" then Exit Sub

is added immediately after Private Sub Worksheet_Change(ByVal Target As Range)

 

[zankzank]

You wont stop it firing but you can stop other lines running by adding a line at the top such as

If Range("S3").Value = "False" then Exit Sub

Hi! First of all,
thank you for finding the time to answer my question: that was very kind of you!
I just wanted to say that , unfortunately, that does not seem to fix my problem: macro_X is still called even is the statement

If Range("S3").Value = "False" then Exit Sub

is added immediately after Private Sub Worksheet_Change(ByVal Target As Range)

 

[steve the fish]

Then that is saying S3 does not equal "False"